Find and Replace first instance of word Only

I want to search for the word Total Points-Check. It has to search column A only. The word will appear numerous times by itself in a cell but I only want the first instance of it to be replaced with the word GUN. Possible??

Any ideas? Google isnt helping me either

Maybe:

Sub ScabbyDogA()
Range("A1").Select
On Error GoTo e
Do Until ActiveCell.Value = "Total Points-Check"

    ActiveCell.Offset(1).Select
    
Loop

ActiveCell.Value = "Gun"
e:
End Sub