Skjule og vise makroknap

Må man se koden du bruger.

Her er koden til at skjule områder med:
Sheets("Salg-alle").Select
    Columns("M:P").Select
    Selection.EntireColumn.Hidden = True
    Rows("16:20").Select
    'Range("E16").Activate
    Selection.EntireRow.Hidden = True
    Range("D3").Select
    Sheets("Køb").Select
    Rows("15:17").Select
    Selection.EntireRow.Hidden = True

CommandButton2_Click() skal skjules i Ark "Køb"
CommandButton1_Click() Skal skjules i Ark "Salg-alle"

Sheets("Køb").CommandButton2.Visible = False
Sheets("Salg-alle").CommandButton1.Visible = False

og det modsatte

Sheets("Køb").CommandButton2.Visible = true
Sheets("Salg-alle").CommandButton1.Visible = true

her er en kode der skifter mellem skjult og ikke skjult

Private Sub CommandButton1_Click()

If Sheets("Køb").CommandButton2.Visible = False Then
Sheets("Køb").CommandButton2.Visible = True
Else
Sheets("Køb").CommandButton2.Visible = False
End If

If Sheets("Salg-alle").CommandButton1.Visible = False Then

Sheets("Salg-alle").CommandButton1.Visible = True
Else
Sheets("Salg-alle").CommandButton1.Visible = False
End If
End Sub

Mange tak, det var lige hvad jeg manglede.
Giv et svar :-))

et svar ;-))