Hi Sean,

My Fault!

Try, instead:

'=============
Public Sub ClearCells()
Range("Jan, Feb, Mar, Apr, May, Jun," _
& "Jul, Aug, Sep, Oct, Nov, Dec").ClearContents
End Sub
'<<=============


---
Regards,
Norman