Maybe this.......

Sub OpenSome()
Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.WindowState = xlNormal
Range("A2").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.WindowState = xlNormal
End Sub

Vaya con Dios,
Chuck, CABGx3


"101 for me" wrote:

Can anyone write me a macro to open multiple (but not all) hyperlinks on a
worksheet, Thanks!