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...
then the "PRANKJOHN" macro set to...
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.
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...
VBA Code:
Sub PRANK()
If Target.Address = "G19" Then
Call PRANKJOHN
End If
End Sub
then the "PRANKJOHN" macro set to...
VBA Code:
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.