F
fishy
I am getting a debug 'Method range of worksheet failed' for the following
macro:
Sub MyTeamFilter()
Dim c As Range
Dim ws As Worksheet
Dim iEnd As Long
UndoMyTeamFilter
Set ws = Sheets("Weekly Performance")
iEnd = ws.Range("B4").End(xlDown).Row
For Each c In ws.Range("B4:B" & iEnd)
If c >= ws.Range("[TeamFilter]") Then c.EntireRow.Hidden = True
Next c
End Sub
Teamfilter is a named range on my 'Control' worksheet.
I am trying to filter the weekly performance based on the dropdown selected
in 'TeamFilter'.
Any help would be appreciated
macro:
Sub MyTeamFilter()
Dim c As Range
Dim ws As Worksheet
Dim iEnd As Long
UndoMyTeamFilter
Set ws = Sheets("Weekly Performance")
iEnd = ws.Range("B4").End(xlDown).Row
For Each c In ws.Range("B4:B" & iEnd)
If c >= ws.Range("[TeamFilter]") Then c.EntireRow.Hidden = True
Next c
End Sub
Teamfilter is a named range on my 'Control' worksheet.
I am trying to filter the weekly performance based on the dropdown selected
in 'TeamFilter'.
Any help would be appreciated