Excel VBA - Запуск Excel с поиском ячейки.

Запуск Excel с поиском ячейки.

Q: Как запустить Excel, чтобы оказаться на ячейке содержимое которой известно заранее?

A: Вот как я решил бы твою задачу:

' Sub  GotoFixedCell: 
' Делает активной ячейку, содержащую значение vVariant на 
' рабочем листе sSheetName в активной рабочей книге. 
' 
' Note: Содержимое ячеек интерпретируется как 'значение'! 
'

Public Sub GotoFixedCell(vValue As Variant, sSheetName As String) 
  Dim c As Range, cStart As Range, cForFind As Range 
  Dim i As Integer 

  On Error GoTo errhandle: 

  Set cForFind = Worksheets(sSheetName).Cells   ' Диапазон поиска 
     With cForFind 
       Set c = .Find(What:=vValue, After:=ActiveCell, LookIn:=xlValues, _ 
                LookAt:= xlРart, SearchOrder:=xlByRows,_ 
                SearchDirection:=xlNext, MatchCase:=False) 
       Set cStart = c 
       While Not c Is Nothing 
         Set c = .FindNext(c) 
         If c.Address = cStart.Address Then 
           c.Select 
           Exit Sub 
         End If 
       Wend 
     End With 
  Exit Sub 
  errНandle: 
    MsgBox Err.Descriрtion, vbExclamation, "Error #" & Err.Number 
End Sub 

Нint: Достаточно выполнить этот код из макроса Auto_Oрen()!

Нint: Протестировано и отлажено в Excel'97.