Hur läser jag antalet rader i ett Exceldokument?

Hur gör jag detta i VB respektive VBA?

I vb kan du använda

Set MSExcel = CreateObject("Excel.application")
Set file = MSExcel.Workbooks

file.Open (aPath)
Set shiit = file(1).Worksheets(1)

numRows = shiit.UsedRange.Rows.Count
numCol = shiit.UsedRange.Columns.Count

har klippt ut lite ur ett eget program så det ser ut som det gör
Du får själv göra det smart...

/Johan

Tack Johan!!
Skall börja laborera... :)