VBA Macro to clear contents every two cells down a column - not working

[Candidont]

Can someone diagnose?

Sub deleteCellContents()
Dim x As Integer
x = 7
Do While x < 74
With Worksheets("Sheet1").Range(Cells(x, 1)).ClearContents
x = x + 2
End With
Loop
End Sub

Thanks

 

[Fluff]

Hi & welcome to MrExcel.

Your With statement is wrong & unneeded, try

Sub deleteCellContents()
   Dim x As Integer
   x = 7
   Do While x < 74
      Worksheets("Sheet1").Range(Cells(x, 1)).ClearContents
      x = x + 2
   Loop
End Sub

 

[Candidont]

Thanks Fluff but there's still something wrong with this line though...

Worksheets("Sheet1").Range(Cells(x, 1)).ClearContents

I get an application-defined or object-defined error message

 

[Fluff]

Oops missed that bit, try

Worksheets("Sheet1").Range("A"&x).ClearContents

 

[Nine Zero]

yeah either that above will work or also

Worksheets("Sheet1").Cells(x, 1).ClearContents