Sub OpenWorkBook()
Dim ExtFile As String
Dim ExtBk As Workbook
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ExtFile = Range("NOTES!C3:C74").Value
If Not ExtFile = "" And Dir(ExtFile) <> "" Then
Else
ExtFile = Application.GetOpenFilename(FileFilter:="microsoft excel files (*.xls), *.xls", Title:="Please Select Service A File")
End If
On Error Resume Next
Set ExtBk = Workbooks(Dir(ExtFile))
On Error GoTo 0
If ExtBk Is Nothing Then
Application.Workbooks.Open ExtFile
Set ExtBk = Workbooks(Dir(ExtFile))
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End If
End Sub