Modify Clear Cells VBA to Multiple Worksheets

[Robandemmy]

I have the following code in place to clear cells the cells on a worksheet named "Production Allocation":

Sub Clear_Cells()

Range("e10:g12").ClearContents
Range("e14:g22").ClearContents
Range("e24:g25").ClearContents
Range("e27:g48").ClearContents
Range("e50:g50").ClearContents
Range("e52:g55").ClearContents
Range("e57:g60").ClearContents
Range("e62:g62").ClearContents
Range("d2:d2").ClearContents

End Sub

I would like to add a few lines to clear cells F65:H65 and F67:H67on worksheet "Labour summary" as well

 

[steve the fish]

To give an example of how to do it for a named sheet:

With Sheets("Production Allocation")
    .Range("e10:g12").ClearContents
End With

 

[mumps]

Try:

Sub Clear_Cells()
    Sheets("Production Allocation").Range("E10:G12,E14:G22,E24:G25,E27:G48,E50:G50,E52:G55,E57:G60,E62:G62,D2").ClearContents
    Sheets("Labour summary").Range("F65:H65, F67:H67").ClearContents
End Sub

 

[My Aswer Is This]

Try this:

Sub Clear_Cells()
'Modified  11/19/2018  11:11:58 AM  EST
Application.ScreenUpdating = False
With Sheets("Production Allocation")
    .Range("e10:g12").ClearContents
    .Range("e14:g22").ClearContents
    .Range("e24:g25").ClearContents
    .Range("e27:g48").ClearContents
    .Range("e50:g50").ClearContents
    .Range("e52:g55").ClearContents
    .Range("e57:g60").ClearContents
    .Range("e62:g62").ClearContents
    .Range("d2:d2").ClearContents
End With

With Sheets("Labour summary")
    .Range("F65:H65").ClearContents
    .Range("F67:H67").ClearContents
End With
Application.ScreenUpdating = True
End Sub

 

[Robandemmy]

Perfect, thanks!

 

[My Aswer Is This]

Glad we were able to help you.

There is always several ways to do things in Excel vba
Come back here to Mr. Excel next time you need additional assistance.

Perfect, thanks!