Clear cells from specific multiple ranges on sheet

[rach_oh]

Trying to clear cell contents from the below ranges on the worksheet & it's giving syntax error

Private Sub CommandButton5_Click()
Worksheets (“Sheet18”)_
.Range("F10:G28").ClearContents
.Range("K38:V56").ClearContents
.Range("F62:G80").ClearContents
.Range("K90:V108").ClearContents
.Range("F116:G134").ClearContents
.Range("K144:V162").ClearContents
.Range("F170:G188").ClearContents
.Range("K198:V216").ClearContents
End Sub

 

[rollis13]

Should be:

Option Explicit
Private Sub CommandButton5_Click()
    With Worksheets("Sheet18")
        .Range("F10:G28").ClearContents
        .Range("K38:V56").ClearContents
        .Range("F62:G80").ClearContents
        .Range("K90:V108").ClearContents
        .Range("F116:G134").ClearContents
        .Range("K144:V162").ClearContents
        .Range("F170:G188").ClearContents
        .Range("K198:V216").ClearContents
    End With
End Sub

 

[rach_oh]

Should be:

Option Explicit
Private Sub CommandButton5_Click()
    With Worksheets("Sheet18")
        .Range("F10:G28").ClearContents
        .Range("K38:V56").ClearContents
        .Range("F62:G80").ClearContents
        .Range("K90:V108").ClearContents
        .Range("F116:G134").ClearContents
        .Range("K144:V162").ClearContents
        .Range("F170:G188").ClearContents
        .Range("K198:V216").ClearContents
    End With
End Sub

thank you!!

 

[rollis13]

Thanks for the positive feedback, glad having been of some help.