Runtime error 1004

det er fordi at din  CommandButton1_Click(), ligger i et arks modul, man kan ikke selecte et andet ark fra koden i et arkmodul, det kan man kun i et selvstændig modul.

i arkmodulet
Private Sub CommandButton1_Click()
call VælgAndetArk
End Sub

i et modul, som ikke er et arkmodul.

Sub VælgAndetArk()
Sheets("Ark2").Select
Range("A1").Select
End Sub
VælgAndet Ark

Det forklarer jo en hel del.
Dit forslag er afprøvet, og fundet brugbart. :-)
Tak for det.

du får et svar. ;-))