Sub DeleteRulelessSheets()
    Dim sh As Variant

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    On Error GoTo Exits:

    For Each sh In Sheets
        If Not Application.ActiveSheet.Name = "RULES" Then
            Application.ActiveSheet.Delete
        End If
    Next sh

Exits:
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

   '... find out how many sheets there are in the contract
    iSheetCount = Worksheets.Count

    '... the main loop
    '... will loop through all the sheets
    For i = 1 To iSheetCount

Call DeleteRulelessSheets

        '... variable used to output what values were not found during the
        '... colour mapping process, this only accounts for when NONE of
        '... the variables inside the template file are found
        sNotFound = ""

        '... get the values of the current worksheet
        Worksheets(i).Activate
        iTotalRows = ActiveSheet.UsedRange.Rows.Count
        iTotalCols = ActiveSheet.UsedRange.Columns.Count

If controlSheet Like "RULES" Then
                        '... take the start of the content and the totalrows and total columns
                        content_range = Left(gaContentColour(j), 2)
                        content_range = content_range & ":" & getColumnLetter(iTotalCols) & iTotalRows

                        '... delete all empty cells in the content range then
                        '... shift them all left
                        Range(content_range).Select
                        Selection.SpecialCells(xlCellTypeBlanks).Select
                        Selection.Delete Shift:=xlToLeft
                    End If