Sub MFilterRange()

End Sub
Dim rFilterRange As Range
Dim Sh As Worksheet

For Each Sh In ActiveWorkbook.Worksheets

If Right(Sh.Name, 7) < "Records" Then
With Sh.Range(.Range("B3"), .Range("B3").End(xlDown).End(xlToRight) _
..Offset(-1, 2)).Name = "'" & Sh.Name & "'!FilterRange"
End With
End If

Next Sh


--
Mountain_Dewski
------------------------------------------------------------------------
Mountain_Dewski's Profile: http://www.excelforum.com/member.php...o&userid=19207
View this thread: http://www.excelforum.com/showthread...hreadid=373735