Not really sure what you mean, maybe

Code:
--------------------

Option Explicit

Private Sub Workbook_Open()
MsgBox ActiveSheet.Rows.Count
End Sub
--------------------


--
royUK

Hope that helps, RoyUK
For tips & examples visit my 'web site' (http://www.excel-it.com/)
------------------------------------------------------------------------
royUK's Profile: http://www.thecodecage.com/forumz/member.php?userid=15
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=99812