Kan geen objecten van het blad safchuiven

[jjmermen]

Hallo,

Ik wil graag de kolommen XDS t/m XFD verbergen. Als ik dit wil doen krijg ik de foutmelding 'Kan geen objecten van het blad afschuiven'.
De kolommen ET tot XDS kan ik wel verbergen.
Weet iemand hier de oplossing voor?

 

[VenA]

Je het ergens een verborgen object staan.

Draai deze macro en probeer dan de kolommen te verbergen.

Sub VenA()
  For j = 2 To ActiveSheet.Shapes.Count
    ActiveSheet.Shapes(j).Delete
  Next j
End Sub

 

[snb]

gebruik eens:

Sub Macro1()
    Application.CommandBars("Selection and Visibility").Visible = True
End Sub

 

[jjmermen]

Dank je VanA, de macro werkt perfect.