Hi

I need a UDF (user defined function) that extracts the visible cells
from a user defined range and gives a range of visible cells.

I found this UDF on the internet. But it gives me some errors when I
apply an AutoFilter to my table.

Where's the mistake?
Thanks in advance.

================================================
Function Vis(VisibleRange As Range) As Range

Dim Cell As Range
Application.Volatile

Set Vis = Nothing

For Each Cell In VisibleRange

If Not (Cell.EntireRow.Hidden Or Cell.EntireColumn.Hidden) Then

If Vis Is Nothing Then
Set Vis = Cell
Else
Set Vis = Union(Vis, Cell)
End If

End If

Next Cell



End Function