something likePrivate Sub Label1_Click()
With ThisWorkbook.Sheets("Sheet1")
Application.Goto (.Range("D4"))
ScrollArea = "C2:F7"
End With
ActiveWindow.ScrollRow = 3
End Sub
?
--
p45cal
*p45cal*
------------------------------------------------------------------------
p45cal's Profile:
http://www.thecodecage.com/forumz/member.php?userid=558
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=124509