Maybe it's because you were filtering a list--not a range.

See your previous post.

Mia wrote:

Hi,

Do anyone know why this code don´t work?

Sub ShowAllRecords()
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
End Sub

//
Mia

--

Dave Peterson