Try editing this one line

For Each c In ws.Range("B4:B" & iEnd).Cells


"fishy" wrote:

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