VBA auto opening chrome website with text change

[hissonrr]

Morning all,

Wanted to play a little prank on a co-worker and was trying to write a macro that if a specific cell changed text it would run and then AutoOpen a chrome website

right now I have my sheet script set to...

Sub PRANK()
    If Target.Address = "G19" Then
        Call PRANKJOHN
    End If
End Sub

then the "PRANKJOHN" macro set to...

Sub PRANKJOHN()

If InStr(1, (Worksheets("Pre Well Checklist").Range("G19").value), "John") > 0 Then
 
Call PrankJohnLink

End If

End Sub

Sub PrankJohnLink()

Dim chromePath As String
 
chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"""

Shell (chromePath & " -url https://www.youtube.com/watch?v=dQw4w9WgXcQ")

End Sub

I can get the macro to run in the editor but cant get it to auto run and open if the text changes to "John". Not 100% what I am missing and any help would be appreciated.

 

[hissonrr]

.