Hi, NicholasL,
why not shorten the code to
Sub ClearTable2()
Dim WorkRange As Range
Dim thisCell As Range
With Sheets("Tables")
Set WorkRange = .UsedRange
For Each thisCell In WorkRange
If Intersect(thisCell, .Range("A1:F1")) Is Nothing Then
thisCell.Clear
End If
Next thisCell
End With
Set WorkRange = Nothing
End Sub
or
Sub ClearTable3()
Dim WorkRange As Range
Dim thisCell As Range
With Sheets("Tables")
Set WorkRange = .UsedRange
For Each thisCell In WorkRange
Select Case thisCell.Address
Case "$A$1", "$B$1", "$C$1", "$D$1", "$E$1", "$F$1"
Case Else
thisCell.Clear
End Select
Next thisCell
End With
Set WorkRange = Nothing
End Sub
Ciao,
Holger
Bookmarks