Du musst die Bedingungen "UND" verknüpfen:
If (Zelle.EntireRow.Hidden = False And Zelle.EntireColumn.Hidden = False And Zelle.Font.Strikethrough = False) Then
Grüße