"kkknie " wrote in message
...
Try:

On Error Resume Next
ActiveSheet.ShowAllData
If Err.Number < 0 Then Msgbox "All data is being shown"
On Error Goto 0

K

Oh, thank you so much! This worked perfectly. I incorporated it into two
sheets.

Thanks!