Code to reset multiple sheets on one workbook

[Helix242]

Hi all,

I hope you can help as I am a bit bemused! I am trying to reset cells on two different Sheets on the one Workbook. The item to reset to "OPEN" on the BLT sheet is resetting on the Decking sheet. Can anyone help? Thanks in advance!

Private Sub Button51_Click()

If MsgBox("Choose OK to reset this page.", vbOKCancel) = vbOK Then
Application.EnableEvents = False
With Sheets("Decking")
Range("B4,B5,B10,F3,F4,F5,F9,F10,F12,F13,F14,F15,F16,F20,H3,H4,B22,C22").Value = ""
Range("B34").Value = "=H38"
Range("C34").Value = "=H95"
Range("C4").Value = "NO"
Range("C5").Value = "NO"
End With


With Sheets("BLT")
Range("b4").Value = "OPEN"


End With


Application.EnableEvents = True
Else
Exit Sub
End If

 

[Fluff]

At the moment everything is working on the activesheet, because you haven't fully qualified your ranges.
Try

With Sheets("Decking")
   .Range("B4,B5,B10,F3,F4,F5,F9,F10,F12,F13,F14,F15,F16,F20,H3,H4,B22,C22").Value = ""
   .Range("B34").Value = "=H38"
   .Range("C34").Value = "=H95"
   .Range("C4").Value = "NO"
   .Range("C5").Value = "NO"
End With


With Sheets("BLT")
   .Range("b4").Value = "OPEN"
End With

 

[Helix242]

At the moment everything is working on the activesheet, because you haven't fully qualified your ranges.
Try

With Sheets("Decking")
   .Range("B4,B5,B10,F3,F4,F5,F9,F10,F12,F13,F14,F15,F16,F20,H3,H4,B22,C22").Value = ""
   .Range("B34").Value = "=H38"
   .Range("C34").Value = "=H95"
   .Range("C4").Value = "NO"
   .Range("C5").Value = "NO"
End With


With Sheets("BLT")
   .Range("b4").Value = "OPEN"
End With

Thank you so much for your help! Such a silly thing to miss out. Thanks once again

 

[Fluff]

Glad to help & thanks for the feedback