rhino4eva
Active Member
- Joined
- Apr 1, 2009
- Messages
- 262
- Office Version
- 2010
- Platform
- Windows
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
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