Printrange function help?
 

Hi all,

I have been using some code found in this forum to determine the activ
print range and it used to work perfectly. Suddenly however, it ha
stopped working. Unfortunately I cannot identify what change ha
caused this. Any chance one of you gurus can figure it out?



Code
-------------------
Dim PrintThis As Range

PrintThis = Worksheets("Expense Schedule").Range("A21:P" & LastRowRange(Worksheets("Expense Schedule")))

Function LastRowRange(sh As Worksheet)

On Error Resume Next
LastRowRange = sh.Range("A:P").Find(What:="", _
After:=sh.Range("A21:P21"), _
Lookat:=xlPart, _
LookIn:=xlValues, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=False).Row
On Error GoTo 0

End Functio
-------------------

--
Frigid_Digi
-----------------------------------------------------------------------
Frigid_Digit's Profile: http://www.excelforum.com/member.php...fo&userid=2692
View this thread: http://www.excelforum.com/showthread.php?threadid=40142