Halo Jani,
Option Explicit
Private Sub CommandButton1_Click()
' ausblenden
Dim loI As Long
Dim LoLetzte As Integer
Application.ScreenUpdating = False
' unabhängig von Excelversion
' für Zeile 1
LoLetzte = IIf(IsEmpty(Cells(1, Columns.Count)), Cells(1, Columns.Count).End(xlToLeft).Column, Columns.Count)
For loI = 1 To LoLetzte
Columns(loI).EntireColumn.Hidden = Cells(1, loI).Font.Bold
Next loI
Application.ScreenUpdating = True
End Sub
Gruß Hajo