ワードのVBAで困ってます。

VBAを勉強を始めたばかりの者です。
ややこしいのですが，ワードのVBAからエクセルを開いてエクセルから
指定したURLを開きたいのです。今，以下のように組みました。
「指定してアドレスを開く」という部分でエラーが出ます。
エラーが型が一致しませんと出ます。

非常に基本的なことを質問して申し訳ございません。お手数ですがよろしくお願いいたします。

Private Sub ボーたん()
Dim exObj As Object
Dim exlsm As Object

'Excel起動
    Set exObj = CreateObject("Excel.Application")
    Set exlsm = exObj.Workbooks.Open("C:\sers\you\Desktop\VBA\NEO\NEO宿泊届け.xlsm")
    exObj.Visible = True
               
'Excelをコピー
   With ActiveWindow.Selection
        exObj.Workbooks("NEO宿泊届け.xlsm").Sheets("Sheet1").Range("B1:M45").Copy
    End With
    

'Wordに貼り付け
   With ActiveWindow.Selection
          Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine, Link:=False
    End With

'指定してアドレスを開く
  
exObj.Workbooks("NEO宿泊届け.xlsm").Sheets("Sheet2").Hyperlinks.Add(Anchor:=Range("A1"), _
Address:="https://mail.google.com/mail/u/0/#inbox", _
TextToDisplay:="yama").Follow
      
'エクセルファイルは保存しない
    Dim myWBook As Object
    For Each myWBook In exlsm.Workbooks
    myWBook.Saved = True
    Next
    Application.Quit
       
'起動中のWordファイルに上書き保存andファイルを閉じる。

ActiveDocument.Close SaveChanges:=wdSaveChanges


    





End Sub