Put the following code at the end of your procedure.

MsgBox "There are " & Format(ActiveSheet.UsedRange.Rows.Count, "#,##0") & _
" rows on the active sheet.", vbOKOnly, Title:="Title Text"


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)

"yasser" wrote in message
...
Hi - I want to create a message box which opens at the end of the macro
which
tells the user how many records (rows) exist on the worksheet. When user
clicks ok, the macro closes.
Please tell me how to code the msgbox that will do this.

Thanks,

Yasser