Run VBA code before file is saved

[kiwikiki718]

hello I have the below code that I want to run before the workbook is saved. but nothing happens when I press save.

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If Worksheets("TUESDAY").Range("A3") = 0 Or Worksheets("TUESDAY").Range("B3") = 0 Then
Worksheets("TUESDAY").Range("A3:B3").Value = Worksheets("MONDAY").Range("A3:B3").Value

End If

If Worksheets("TUESDAY").Range("A13") = 0 Or Worksheets("TUESDAY").Range("B13") = 0 Then
Worksheets("TUESDAY").Range("A13:B13").Value = Worksheets("MONDAY").Range("A13:B13").Value

End If

If Worksheets("TUESDAY").Range("A23") = 0 Or Worksheets("TUESDAY").Range("B23") = 0 Then
Worksheets("TUESDAY").Range("A23:B23").Value = Worksheets("MONDAY").Range("A23:B23").Value
End If

If Worksheets("TUESDAY").Range("A33") = 0 Or Worksheets("TUESDAY").Range("B33") = 0 Then
Worksheets("TUESDAY").Range("A33:B33").Value = Worksheets("MONDAY").Range("A33:B33").Value
End If

If Worksheets("TUESDAY").Range("A43") = 0 Or Worksheets("TUESDAY").Range("B43") = 0 Then
Worksheets("TUESDAY").Range("A43:B43").Value = Worksheets("MONDAY").Range("A43:B43").Value

End If

End sub

 

[Micron]

If it runs, then something happens. If it runs and doesn't do what you expect, that is a different matter. So the question is, does it run? If you don't know for sure then but a breakpoint in the code, or add a msgbox line before the first If block, or write Stop there instead. Then save the wb. If it doesn't suspend the code or raise a message box then you might have disabled events at some point and it never got re-enabled.

 

[rlv01]

I ran your code without modification and it worked for me.