答え1
以下のようなことですか?
With ThisWorkbook.Sheets("Sheet1")
Range("C2").Hyperlinks(1).Follow
End with
アドレスが実際にはハイパーリンクではない場合:
With ThisWorkbook.Sheets("Sheet1")
ThisWorkbook.FollowHyperlink Address:=.Range("C2").Value, NewWindow:=False, AddHistory:=True
End with
また、現在、値に拡張子がないことに注意してください。セルまたは VBA を使用してこれらを追加する必要がある場合があります。
Address:=.Range("C2").Value & ".extention"