Доброго времени суток, господа! У меня возникла проблема с тем чтобы выбрать нужную мне книгу. Так как имя книги всегда меняется, но при этом имя листа в этой книге всегда неизменно и оно уникально, то есть ни в одной из других открытых книг больше такого листа нет. Как мне с помощью макроса выбрать такую книгу в которой есть лист "Солнце"? Я попытался и вот что получилось.
Код
Sub WorksheetExists() '(shtName As String, Optional wb As Workbook) As Boolean
'
Dim sht As Worksheet
Dim wb As Workbook
For Each wb In Application.Workbooks
For Each sht In wb.Sheets
If sht.name = "Солнце" Then
sht.Activate
Range("A1").Value = "bbb"
End If
Next sht
Next wb
End Sub
Sub WorksheetExists()
Dim sht As Worksheet, wb As Workbook
For Each wb In Application.Workbooks
For Each sht In wb.Sheets
If sht.name = "Солнце" Then
sht.Activate
Exit Sub
End If
Next sht
Next wb
End Sub