Hi There,
I am sure there is a better, and faster way for my code to work. What I am trying to do, is loop through 4 different ranges, and clear contents.
What I have at present is:
Code
Sub Clear()
Dim Rng1 As Range
Dim Rng2 As Range
Dim Rng3 As Range
Dim Rng4 As Range
Set Rng1 = Sheets("Input").ListObjects("Data").ListColumns("Days Worked").DataBodyRange
Set Rng2 = Sheets("Input").ListObjects("Data").ListColumns("O/T Hours Worked").DataBodyRange
Set Rng3 = Sheets("Input").ListObjects("Data").ListColumns("Commission Value").DataBodyRange
Set Rng4 = Sheets("Input").ListObjects("Data").ListColumns("Advance").DataBodyRange
For Each cell In Rng1
cell.ClearContents
Next
For Each cell In Rng2
cell.ClearContents
Next
For Each cell In Rng3
cell.ClearContents
Next
For Each cell In Rng4
cell.ClearContents
Next
End Sub
Display More
Please can someone suggest a better way - I am sure it has to do looping through the ranges.
Thanks in advance