set value in specific cells on multiple worksheets simultaneously

[DENWARD]

Trying to change many at once with the following code which doesnt work. Can you assist ?

Sub CLEAR()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
With Sheets("COM-ADOPT-INTERNAL STAFF", "COM-ADOPT-EXTERNAL STAFF", "COM-ASESMT-INTERNAL STAFF", "COM-ASESMT-EXTERNAL STAFF", "COM-IMPL-INTERNAL STAFF", "COM-IMPL-EXTERNAL STAFF")
.Range("b56:b60,c65:c89").Value = 0
End With
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub

[Olly]

First of all, can you please post code in CODE tags - makes it much easier to read and copy.

Now, try this:

Please Login or Register  to view this content.

[DENWARD]

Hi Olly,
Sorry, I'm new and I dont know how to post in code tags but I will find out.
Thanks for your help.
The solution works perfectly on the first worksheet in the array but none of the others. Makin me crazy!
I have double checked the tab labels and no spaces etc.

[Olly]

Okay - can you attach your workbook, so we can have a look at it.