（６）呼び出し元・先

ハイパーリンクはエクセルの挿入のハイパーリンクをクリックするとアドレスを入力するダイアログがでますのでそこにホームページのURLと同じように呼び出したいファイルのパスとファイル名を入力します。
VPNを使って遠隔地のファイルを呼び出すときなど便利です。
営業部・技術部が別の場所にある場合
Workbooks.Open Filename:= パスとファイル名
で呼び出せます。
技術部はシート２にありますので、 Worksheets("技術部").Activateでシートを表示していきます。
Sub eigyou()
    Workbooks.Open Filename:="D:\教材\VBA\ホームページ原稿\よくつかうプログラム\呼び出し先.xlsm"
End Sub
Sub gijyutu()
    Workbooks.Open Filename:="D:\教材\VBA\ホームページ原稿\よくつかうプログラム\呼び出し先.xlsm"
    Worksheets("技術部").Activate
End Sub

呼び出し先のブックが開いているか確認して開きます。
呼び出し元のフォルダー（PATH）を直接入力するのではなく、
MyFile = ActiveWorkbook.Path & "\呼び出し先.xlsm"
PATHで取得してファイル名を足しています。
Sub eigyou1()
'ブックが開いているか確認してから開く
    Dim flag As Boolean
    Dim wb As Workbook
    Dim MyFile As String
    MyFile = ActiveWorkbook.Path & "\呼び出し先.xlsm"
'    MyFile = "D:\教材\VBA\ホームページ原稿\よくつかうプログラム\呼び出し先.xlsm"
    flag = False
    For Each wb In Workbooks
        If wb.FullName = MyFile Then
            flag = True
            MsgBox MyFile & "は既に開いています"
           
            Exit For
        End If
    Next wb
   
    If flag = False Then
        MsgBox MyFile & "を開きます"
        Workbooks.Open MyFile
    End If
   
End Sub