Using an array to chage a reference but do the same job

[rhino4eva]

Sub RESET()

Dim WS As Worksheet
Set WS = ThisWorkbook.Sheets("Sheet1")
WS.Range("B2").ClearContents
WS.Range("B3").ClearContents
WS.Range("A4").ClearContents
WS.Range("B4").ClearContents
WS.Range("C4").ClearContents
WS.Range("F1").ClearContents
WS.Range("F2").ClearContents

End Sub

the code above does he same job over and over I would like to build the cell reference into an array
I recorded to references and am sure there is a way to tidy up this dirty code


Adam

 

[Domenic]

Try...

Sub RESET()


Dim WS As Worksheet
Set WS = ThisWorkbook.Sheets("Sheet1")
WS.Range("B2:B4,A4,C4,F1:F2").ClearContents


End Sub

Hope this helps!

 

[Norie]

Adam

Why not use something like this?

WS.Range("A4, B2:B4, C4, F1:F2",).ClearContents

 

[rhino4eva]

Sure does.... I know i'm not a tidy programmer but every little bit helps