Sub ブラウザ_クローム_を起動してYahooJAPANを開く() Set システム = CreateObject("WScript.Shell") YahooURL = "https://www.yahoo.co.jp/" システム.Run ("chrome.exe -url " & YahooURL) End Sub