Delete Column based upon Text found

[fari1]

Hi,
i want the vba code to loop through column A:J, if it finds $ sign in any of the column then delete the whole column and go for next.

 

[RSXchin]

here you go

Sub Macro1()
    Dim Col As Long
    For Col = 10 To 1 Step -1
        If Application.WorksheetFunction.CountIf(Columns(Col), "$") Then
            Columns(Col).EntireColumn.Delete shift:=xlToLeft
        End If
    Next Col
End Sub

 

[fari1]

perfect!

 

[RSXchin]

can anyone show me a better way to do that?