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