Sub pr()
    If WorkbookIsOpen("телефоны.xls") Then MsgBox "файл открыт"
End Sub

Private Function WorkbookIsOpen(wbname As String) As Boolean 
    'функция проверки отрыт файл или нет
    Dim OpenBook As Workbook

    On Error Resume Next
    Set OpenBook = Workbooks(wbname)
    If Err =  0  Then
        WorkbookIsOpen = True
        Else: WorkbookIsOpen = False
    End If
End Function

Sub Телефон()
    Dim xlApp As Object, xlBook As Variant, xlSheet As Object
        
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Workbooks.Open ActiveWorkbook.Path & "\телефоны.xls"
    xlApp.Visible = True
    xlApp.Workbooks("телефоны.xls").Close
    Set xlApp = Nothing
End Sub