Creating a message box when a cell value meets a criteria runs multiple times

Hi

My workbook has a bunch of power queries pulling in data into some tables.

I also have a hidden sheet that counts a particular condition in a cell.

Within the hidden sheet's code I have the following...

Sub Worksheet_Calculate()

    If Range("C2") > 0 Then
        MsgBox "Test Message"
    End If

End Sub

The workbook refreshes every 10 minutes and when the cell is above 0 the alert pops up.
Unfortunutely it pops up 4 times so the sheet must be calculating multiple times on refresh causing the code to run multiple times.

I'm looking for a solution to make this code run only once.

Is there an altenative I can use to make the message box pop up once?

Does this work for you?

Sub Worksheet_Calculate()
    Static blnRun As Boolean
    If Range("C2") > 0 Then
        If blnRun = False Then
            blnRun = True
            MsgBox "Test Message"
        Else
            blnRun = False
        End If
    End If
End Sub

Originally Posted by ByteMarks

Does this work for you?

Sub Worksheet_Calculate()
    Static blnRun As Boolean
    If Range("C2") > 0 Then
        If blnRun = False Then
            blnRun = True
            MsgBox "Test Message"
        Else
            blnRun = False
        End If
    End If
End Sub

Hi, thanks for the suggestion.

You code seems to have reduced the alert to popping up 2 sometimes 3 times but didn't resolve the issue.

If it was always 4 times originally, then this might work.

Sub Worksheet_Calculate()
    Static CalcTimes As Long
    If Range("C2") > 0 Then
        If CalcTimes = 0 Then
            MsgBox "Test Message"
        End If
    End If
    CalcTimes = CalcTimes + 1
    If CalcTimes >= 4 Then CalcTimes = 0
End Sub

Originally Posted by ByteMarks

If it was always 4 times originally, then this might work.

Sub Worksheet_Calculate()
    Static CalcTimes As Long
    If Range("C2") > 0 Then
        If CalcTimes = 0 Then
            MsgBox "Test Message"
        End If
    End If
    CalcTimes = CalcTimes + 1
    If CalcTimes >= 4 Then CalcTimes = 0
End Sub

Thanks ByteMarks that worked for me.
I searched what the Static variable does and it allows a variable to retain it's value after the code has finished which allows the count to take place everytime the worksheet is calculated.
Totally makes sense.