Macro aan button knopen gaat niet goed

[Ramirez]

Ik heb een simpele macro die op een ander werkblad een kolom verwijderd. Deze werkt zoals gewenst.

Sub Macro1()
Sheets("Blad2").Select
Columns("H:H").Select
Selection.Delete Shift:=xlToLeft
Sheets("Blad1").Select
Range("A1").Select
End Sub

Wanneer ik de macro vervolgens aan een button knoopt, op de volgende manier, dan krijg ik een foutmelding wanneer de macro wordt uitgevoerd.

Private Sub CommandButton1_Click()
Sheets("Blad2").Select
Columns("H:H").Select
Selection.Delete Shift:=xlToLeft
Sheets("Blad1").Select
Range("A2").Select
End Sub

Ik krijg dan een fout 1004 tijdens uitvoering.

Volgens mij zie ik heel simpels over het hoofd. Hoe kan ik dit oplossen?

 

[Wigi]

Probeer dit eens:

Private Sub CommandButton1_Click()
Sheets("Blad2").Columns("H:H").Delete Shift:=xlToLeft
Range("A2").Select
End Sub

Wigi

 

[Ramirez]

Zo simpel kan het zijn.....

Verschil tussen een macro en VBA?

Bedankt Wigi :thumb:

 

[Wigi]

Verschil tussen een macro en VBA?

Geen...