Snasui Excel Forum

Code: Select all

Sub DelUnwatedColumns()
Dim wh As Worksheet, rs As Range
Dim r As Range, rAll As Range, count As Integer
Set rs = Worksheets("Template").Range("A1:L1")
For Each wh In Worksheets
    Set rAll = wh.Range("A1", wh.Range("IV1").End(xlToLeft))
    For Each r In rAll
        If Not IsNumeric(Application.Match(r, rs, 0)) Then
            r = ""
            count = count + 1
        End If
    Next r
    If count > 0 Then
        rAll.SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
    End If
Next wh
End Sub

Code: Select all

Set rs = Worksheets("Template").Range("A1:L1")