error 1004

[Giggzz]

Private Sub CommandButton1_Click()
Range("B4:D4,J4,B5:E5,G5:H5,J5,B6,E6:G6,I6,C7:D7,F7:G7,B9:E9,I9:J9,B10:E10,G10:H10,J10,B11,E11:F11,H11:I11,B12:C12,E12,C14:E14,G14:H14,J14,B15,B17,E17,G17:H17,B19,E19,G19:H19,J19,A23:H23,A24:H24,A25:H25,a26:b26,B34:F34,B35:F35,C47:J47,A48:J48,C49:J49,A50:J50,J53,J54").ClearContents
End Sub

getting an error - Run-Time errror 1004 Application-defined or Object-defined error.

Any idea what might fix it??? Thanks

 

[DRJ]

It looks like there are too many seperate ranges. It works when you split up this code.

Range("B4:D4,J4,B5:E5,G5:H5,J5,B6,E6:G6,I6,C7:D7,F7:G7,B9:E9,I9:J9,B10:E10,G10:H10,J10,B11,E11:F11,H11:I11,B12:C12,E12,C14:E14").ClearContents
Range("G14:H14,J14,B15,B17,E17,G17:H17,B19,E19,G19:H19,J19,A23:H23,A24:H24,A25:H25,a26:b26,B34:F34,B35:F35,C47:J47,A48:J48,C49:J49,A50:J50,J53,J54").ClearContents

 

[Giggzz]

now getting metod range of object_worksheet failed. ???????

 

[DRJ]

I just cut and pasted what I posted above and it works for me.