Trying to run a quick script to pull a few names out of a string and place them in the column next to the string location. Cant seem to get this going. Any tips would be greatly appreciated.
Sub james()
Dim celltxt As String
celltxt = ActiveSheet.Range("d4").Text
If InStr(1, celltxt, "Sue")...