По нижеидущей команде
Worksheets("Борщ").Select 

выбираю лист , имя которого  "Борщ"

Как записать проверку существует ли
лист с этим  именем ?

if имеется_лист_Борщ Then

    else
          MsgBox "Лист Борщ НЕ НАЙДЕН"

END IF

СПАСИБО

Public Function Find_sheet(m_sNameSheet As String) As Boolean
' This function I put into Module1
' Dim m_sTemp As String
' Call Find_sheet(m_sTemp) ' обращение к этой функции

'+MsgBox "Function received name of sheet" & _
'+        vbNewLine & m_sNameSheet
Dim m_sFoundedSheet As String

Dim m_sDir As String
m_sDir = "D:\After_Holiday_131204\Excel_only\Zvit_Programa_osnashennja_lich_2004-S_Ethalon_1.xls"

' if book already opened then
'+
Workbooks.Open m_sDir ' путь необходимо объязательно указывать
On Error GoTo ne_imeetsya

m_sFoundedSheet = ThisWorkbook.Sheets(m_sNameSheet).Name
ne_imeetsya:
If Err.Number =  9  Then
    MsgBox "Такого листа " & vbNewLine & _
    m_sNameSheet & vbNewLine & "нет"
    Exit Function
Else
    If Err.Number <>  0  Then
        MsgBox "Какой-то другой косяк" & vbCr & Err.Number & " - " & Err.Description, vbInformation
    Else
        MsgBox "Лист имеется"
        MsgBox "Искомый лист " & vbNewLine & _
        m_sNameSheet & vbNewLine & "имеется"
    End If
End If
End Function

Public Function Find_sheet(m_sNameSheet As String) As Boolean
Dim m_sFoundedSheet As String
Dim i As Integer
i =  0  ' for debug
Dim m_sDir As String ' для хранения пути нахождения .xls_file
m_sDir = "D:\After_Holiday_131204\Excel_only\Zvit_Programa_osnashennja_lich_2004-S_Ethalon_1.xls"

Workbooks.Open m_sDir ' путь необходимо объязательно указывать, я поменял
' имя подкаталога, было выдано сообщение

    Dim ws As Worksheet
    For Each ws In Worksheets
    
        MsgBox Str(i) & ". Name of sheet: " & ws.Name  ' ивлекает имена всех листов в книге
        
        If ws.Name = m_sNameSheet Then
            MsgBox "Name region is found " & vbNewLine & _
            m_sNameSheet & vbNewLine & "is founded"
       End If
       i = i +  1 
   Next ws  ' End of block For Each ws In Worksheets
' //// END   block_61 вывода имён всех листов в открытой книге  /////
    Dim m_nCount As Integer
    Dim m_sCount As String
    m_nCount = Worksheets.Count ' quantity of sheets in current book
    m_sCount = Str(m_nCount)
    MsgBox "Book contain m_sCount" & m_sCount & vbNewLine & "of sheets"
    ActiveWorkbook.Close ' close object, this object  is  Workbook
End Function