поиск листа в книге

[tat-besidovska]

Здравствуйте!
Подскажите, пожалуйста, как написать процедуру на VBA
Ищем книгу, открываем ее, в ней ищем лист с именем «Таня», находим - открываем, если не находим, то заводим лист с именем «Таня». Заранее всем спасибо за помощь.

[SAS888]

Где ищем книгу?
Предллагаю так:

Sub MyFind()

    Dim FS As FileSearch, FilePath As String, FileSpec As String
    Dim i As Integer, q As Integer, MyFile As String, x As Object
    
    MyFile = InputBox("Имя файла", "Ввод имени файла") & ".xls"
    
'Запрос имени папки

    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = "C:\"
        .Title = "Укажите папку для поиска"
        .Show
        If .SelectedItems.Count = 0 Then
            Exit Sub
        Else
            FilePath = .SelectedItems(1) & "\"
        End If
    End With

    Application.ScreenUpdating = False
    On Error Resume Next
    Workbooks.Open FileName:=FilePath & MyFile
    If Err <> 0 Then
        MsgBox "Файл" & MyFile & "не найден"
        Exit Sub
    End If
    
'Поиск или создание рабочего листа

    On Error Resume Next
    Set x = ActiveWorkbook.Sheets("Таня")
    If Err = 0 Then
        Sheets("Таня").Select
    Else
        Set x = Worksheets.Add
        x.Name = "Таня"
    End If
    
End Sub