I'm getting Run Time Error 1004 message when I run the following sub. I have
tried switching form Me to Worksheets("Sheet1') and I still received the same
error. I thought this same function worked for me the other day but
apparantly I've missed something or the universe and everything in it has
fundamentally changed without my knowing it this Monday. Thanks.

Private Sub CC1_Click()

Me.Range("C8:H36").ClearContents
Me.Range("J8:K14").ClearContents
Me.Range("E59:I81").ClearContents
Me.Range("E105:I127").ClearContents
Me.Range("E151:I173").ClearContents
Me.Range("E197:I219").ClearContents
Me.Range("E243:I265").ClearContents
Me.Range("E289:I311").ClearContents
Me.Range("E335:I357").ClearContents
Me.Range("E381:I403").ClearContents
Me.Range("E427:I449").ClearContents
Me.Range("E473:I495").ClearContents
Me.Range("E519:I541").ClearContents
Me.Range("E565:I587").ClearContents
Me.Range("E611:I633").ClearContents
Me.Range("E657:I679").ClearContents
Me.Range("E703:I725").ClearContents
Me.Range("E749:I771").ClearContents
Me.Range("E795:I817").ClearContents
Me.Range("E841:I863").ClearContents
Me.Range("E887:I909").ClearContents
Me.Range("E933:I955").ClearContents


End Sub