"For Each Cell In Range(Cells(etc....)" wont work in userform...(?)

[kbishop94]

This runs fine in module or worksheet I have...

Dim lCol As Long
Dim wt As Worksheet
Set wt = Worksheets("Employee Training Matrix")
lCol = ActiveSheet.UsedRange.Columns.Count

With wt
For Each Cell In Range(Cells(4, 7), Cells(4, lCol))

If Cell = "b" Then Columns(Cell.Column).Hidden = True Else Columns(Cell.Column).Hidden = False
Next

End With

but excel doesnt like it one bit when its in a userform... Its probably the structure of how I need to define the range, but I cannot figure it out.

I get the error: "Compile error: Variable not defined" with "Cell" highlighted in the VBA window.

Please and thank you for any help/suggestions.

Keith

 

[Jon Peltier]

You need a range variable. Don't use the keyword "Cell" here. Also, you use "With wt" but then don't reference wt the way you should (with dots). Use this:

Dim rCell As Range

With wt
    For Each rCell In .Range(.Cells(4, 7), .Range(4, lCol))

 

[kbishop94]

Awesome, thnk you Jon. (i did reference 'wt' in my code... just forgot to include it in my post. )

THanks again

You need a range variable. Don't use the keyword "Cell" here. Also, you use "With wt" but then don't reference wt the way you should (with dots). Use this:

Dim rCell As Range

With wt
    For Each rCell In .Range(.Cells(4, 7), .Range(4, lCol))