Advertisement
Guest User

Untitled

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