Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub opendefault()
- 'Google searches each item in selection
- 'Attribute opendefault.VB_Description = "Google searches each item in selection"
- MyRow = ActiveCell.Row
- ActiveWorkbook.FollowHyperlink Address:="https://www.google.com/search?q=" & Cells(MyRow, "C").Value & "+" & Cells(MyRow, "F").Value
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement