Only want to run Code once!

[breakbacktennis]

Hi, I have some code that I only want to run once. As the sheet it is connected to is refreshing it also keeps refreshing the code thus meaning the code keeps running. Is there anyway just to have the code run once and not keep refreshing?

Private Sub Worksheet_Calculate()

        If Sheet1.Range("U7").Text = "Done" Then Exit Sub
        If Range("G1").Value = "In-play" Then
               Range("U9").Value = Range("G9").Value
               Range("U11").Value = Range("G11").Value
               Range("U13").Value = Range("C2").Value
        End If
        
End Sub

 

[Special-K99]

Does this work? Adjust the A1 cell to whatever you want.

Private Sub Worksheet_Calculate()
    If Range("A1")<>1 Then
        If Sheet1.Range("U7").Text = "Done" Then Exit Sub
        If Range("G1").Value = "In-play" Then
               Range("U9").Value = Range("G9").Value
               Range("U11").Value = Range("G11").Value
               Range("U13").Value = Range("C2").Value
        End If
        Range("A1")=1
    End If
End Sub

 

[breakbacktennis]

Hi Special-K99, Thanks for your post. Unfortunately the macro keeps refreshing along with the spreadsheet. I basically want to take a snapshot of the values in 3 cells as soon as G1 = in-play and then not refresh them if that makes sense.

 

[breakbacktennis]

I removed the if sheet.range("U7") line of code and the cell values i want are recorded however the spreadsheet just breaks.