got it.. had a better search ;-) This one works perfectly... no fuss!

Sub test()

Dim r As Range


For Each r In Intersect(ActiveSheet.UsedRange, Columns(1))
If r.EntireRow.Hidden = True Then
r.EntireRow.Delete
End If
Next


End Sub