Option Explicit

Private strWorkbook As String
Private strSheet As String

Sub Macro1()
strWorkbook = BrowseForFile("Select Workbook", True)
strSheet = InputBox("Enter worksheet name", "Worksheet", "Sheet1")
AddHLinks ActiveDocument, strWorkbook, strSheet
End Sub

Sub AddHLinks(oDoc As Document, strWorkbook As String, strSheet As String)

'etc