Beeps with flashing message

[Zsand]

Hi,

I have a large excel worksheet, before I print this worksheet I want to check the totals on three columns before it prints. If the three totals are not the same I want the system beep three time and flash the message (Check Totals) and stop the macro from printing.


Help

 

[VoG]

Which cells hold these totals?

 

[VoG]

OK, well before I nod off, this is what you need to do.

Right click the sheet tab and select View Code. Copy and paste in:

Private Sub Worksheet_BeforePrint(Cancel As Boolean)
Dim i As Byte, a As Variant, b As Variant, c As Variant

a = Range("A100").Value
b = Range("B100").Value
c = Range("C100").Value

If a <> b Or a <> c Or b <> c Then
    For i = 1 To 3
        Beep
        Application.Wait Now() + TimeSerial(0, 0, 1)
    Next i
    MsgBox "Check totals - Printing cancelled"
    Cancel = True
End If
End Sub

Change the cell references for a, b and c to suit then close the code window.