Option Explicit
Dim objExcel
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

dim filePath
filePath = "F:\SynologyDrive\myfile\個人\自動起動.xlsm"
objExcel.Workbooks.Open(filePath)

objExcel.worksheets("時間").select'シートが一つの場合はコード自体不要になる。

objExcel.Application.Run"時間記入"

'Msgbox "マクロを実行しました"'クリックしないとExcelを閉じないのでコメントアウト
objExcel.DisplayAlerts = False
objExcel.Quit
Set objExcel = Nothing