ti ringrazio per la risposta...

sono riuscito a risolvere cosi:

Public Sub Search1()
Dim WB As Workbook
Dim SH As Worksheet
Dim Rng As Range
Dim rCell As Range

Set WB = Workbooks("PROVA2.xlsm")
Set SH = WB.Sheets("SEARCH")

Set Rng = SH.Range("I452:AU452")

For Each rCell In Rng.Cells
'WB.FollowHyperlink Address:=rCell.Value, NewWindow:=False
Shell "C:***********************\chrome.exe " & rCell.Value
Next rCell

End Sub