As On error may cause some other "problems" - try this:
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Micky


"מיכאל (מיקי) אבידן" wrote:

The easiest way will be by adding:
On Error resume Next
as the first command of the macro.
Micky


"CousinExcel" wrote:

Hi,

I wrote in the macro
ActiveSheet.ShowAllData
but if no filtering is set, I get error message.
Is it possible to say something like
If 'filtered...'

Thanks and regards,

Cousin Excel