Cell = Range("A1") Type mismatch

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