Message Box

[Guest]

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

 

[Chip Pearson]

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)

 

[merjet]

Try this:
MsgBox Sheets("Sheet1").UsedRange.Rows.Count & " records"

Subtract 1 from the count if there is a header row.

Hth,
Merjet