Een gedeelte cellen wissen

[Bertus78]

HELP

Ik heb het volgende

Private Sub Image3_Click()
If MsgBox("Weet u zeker dat alles gewist moet worden?", vbYesNo + vbInformation, "ALLES WISSEN") = vbYes Then
    Sheets("GTM_rekening").Select
   Range("A10:G60").Select   
   Selection.ClearContents 'Gebruiker koos Ja
    Else: Exit Sub 'Gebruiker koos Nee
  End If

End Sub

De cellen A10 t/m G10 moeten gewist worden.
Echter krijg ik een foutmelding bij

Range("A10:G60").Select

de melding is "Mothode Select van klasse range mislukt".
Echter moeten celeigenschappen wel blijven bestaan.

 

[Timshel]

Even los van alle overbodige selects lost dit het probleem volgens mij ook op:

Private Sub Image3_Click()
If MsgBox("Weet u zeker dat alles gewist moet worden?", vbYesNo + vbInformation, "ALLES WISSEN") = vbYes Then
    Sheets("GTM_rekening").Select
   [COLOR=#ff0000]Activesheet.[/COLOR]Range("A10:G60").Select   
   Selection.ClearContents 'Gebruiker koos Ja
    Else: Exit Sub 'Gebruiker koos Nee
  End If

End Sub

 

[edmoor]

Private Sub Image3_Click()
    If MsgBox("Weet u zeker dat alles gewist moet worden?", vbYesNo + vbInformation, "ALLES WISSEN") = vbYes Then
        Sheets("GTM_rekening").Range("A10:G60").ClearContents
    End If
End Sub

 

[Bertus78]

Oke bedankt, het werkt.

SUPER SUPER bedankt