Mein Code wird ab ActiveSheet.Columns("A:H,R:U,W:Y").Hidden = True
nicht mehr ausgeführt ("Typen unverträglich").
Wie kann ich die in der Klammer aufgeführten Spalten ausblenden?
Gruss, Peter
Sub Check()
Dim Ash As String,
Ash = ActiveSheet.Name
Sheets(Ash).Copy
ActiveSheet.Columns("A:H,R:U,W:Y").Hidden = True
ActiveSheet.Columns("AF").Hidden = False
End Sub