Error msg for "ShowAll"?

[StargateFanFromWork]

I have a button on a spreadsheet that accesses performs the "ShowAll"
function of:

ActiveSheet.ShowAllData

It works great unless all the data is present, of course. Rather than get
the 1004 error of:

"Run-time error '1004':

ShowAllData method of Worksheet class failed"

what can I add to the line of coding above, ActiveSheet.ShowAllData, to
alert the user that all the data is showing?

Thanks.

 

[kkknie]

Try:

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

 

[StargateFanFromWork]

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!