Hide Columns on CountIF

[FrEaK_aCcIdEnT]

Been picking my brain, trying to wrap my head around how to accomplish this...

If worksheets("SNList").Range(C3:C94,"7FA")=>1 then worksheets("UT").Columns("AF:AN").hidden = True
End If


I know the above wont work, but I would be very grateful if someone could help me out.

Thanks for any help you can provide. ray:


I will be "Googling" until I can make it work otherwise. [Brain Fry]

 

[VoG]

Maybe

If WorksheetFunction.CountIf(Worksheets("SNList").Range("C3:C94", "7FA")) >= 1 Then
    Worksheets("UT").Columns("AF:AN").Hidden = True
End If

 

[FrEaK_aCcIdEnT]

Maybe

If WorksheetFunction.CountIf(Worksheets("SNList").Range("C3:C94", "7FA")) >= 1 Then
    Worksheets("UT").Columns("AF:AN").Hidden = True
End If

VoG, Thanks for the reply

With the code above applied to the private sub below, I get a "Compile Error: Argument not optional" with the .countif highlighted.

Private Sub Worksheet_Activate()
If WorksheetFunction[B][COLOR=#0000ff].CountIf[/COLOR][/B](Worksheets("SN List").Range("C3:C94", "7FA")) >= 1 Then
    Worksheets("UT").Columns("AF:AN").Hidden = True
End If
End Sub

This what I came up with that doesn't work either. It is telling me Object variable or With block variable not set.

Dim EngMdl As Range: EngMdl = Worksheets("SN List").Range("C4:C94")
If Application.CountIf(EngMdl, "7FA") > 0 Then
Worksheets("UT").Columns("AF:AN").Hidden = True
End If

Thanks for any insight into either code!

 

[VoG]

Closing bracket in the wrong place, sorry

If WorksheetFunction.CountIf(Worksheets("SNList").Range("C3:C94"), "7FA") >= 1 Then
    Worksheets("UT").Columns("AF:AN").Hidden = True
End If

 

[FrEaK_aCcIdEnT]

Thanks a lot for your help Peter!! Works great!