Для открытия интернет-странице в браузере по умолчанию используйте такой код:
Sub Go_To_Site()
Dim Link$
Link = [a1]
If a1 = "" Then ThisWorkbook.FollowHyperlink Address:="http://excelworld.ru" _
Else ThisWorkbook.FollowHyperlink Address:=Link
End Sub
Подразумевается что адрес сайта написан в ячейке А1, если же она пустая, то будет открыт сайт excelworld.ru