For i =  1  To Worksheets.Count
      If Worksheets(i).Name = "LIST" Then
        ' что-то
      End If
    Next i

  Worksheets( 1 ).Activate

 Private Function IsWorkSheetExist(sName As String) As Boolean
 Dim c As Object
 On Error GoTo errНandle:
    Set c = Sheets(sName)
    IsWorkSheetExist = True
  Exit Function
errНandle:
    IsWorkSheetExist = False
End Function

Private Sub Workbook_Open()
    
    If Not (IsWorkSheetExist("LIST")) Then
      With Worksheets.Add
          .Name = "LIST"
          .Visible = False
      End With
    End If
    CreateMacros
    Worksheets( 1 ).Activate
End Sub

Sub CreateMacros()
    'MacrosText = MacrosText + "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) "
    MacrosText = MacrosText + "Private Sub Worksheet_SelectionChange(ByVal Target As Range, Cancel As Boolean) "
    MacrosText = MacrosText & Chr( 13 ) + "     RefreshData " & Chr( 13 ) + "End Sub "
    
    For Each iVBComponent In ThisWorkbook.VBProject.VBComponents
      If iVBComponent.CodeModule.Find("Sub" & _
                iProcedure$,  1 ,  1 , iVBComponent.CodeModule.CountOfLines,  1 ) = False Then
          iVBComponent.CodeModule.AddFromString (MacrosText)
      End If
    Next
    
End Sub

Sub RefreshData()
'
' Макрос1 Макрос
    s = ActiveSheet.Cells( 1 , ActiveCell.Column)
    p = InStr(s, "|")
    a = ActiveSheet.Cells(ActiveCell.Row,  1 )
  If ((ActiveSheet.Name <> "Титульный лист") And (ActiveSheet.Name <> "LIST") And (ActiveSheet.Cells( 1 , ActiveCell.Column) <> "") And (p >  0 ) And (ActiveSheet.Cells(ActiveCell.Row,  1 ) <> "")) Then
    'Создается сессия
    Set objSession = CreateObject("OracleInProcServer.XOraSession")
    'Происходит соединение
    Set objDataBase = objSession.OpenDatabase(Sheets("Титульный лист").Cells( 10 ,  3 ), Sheets("Титульный лист").Cells( 11 ,  3 ) + "/" + Sheets("Титульный лист").Cells( 12 ,  3 ),  0 &)
    Dim oSheet As Object
    Dim oCell As Object
    
    Set oSheet = ActiveSheet
   ' Set oCell = ActiveCell
    ' Связываем переменные

    objDataBase.Parameters.Add "mlt",  1 ,  1 
    objDataBase.Parameters.Add "clf",  6 ,  1 
    objDataBase.Parameters.Add "cls", ActiveSheet.Cells(ActiveCell.Row,  1 ),  1 
    objDataBase.Parameters.Add "sgn", Mid(s, p +  1 ),  1 
    objDataBase.Parameters.Add "dvs", Mid(s,  1 , p -  1 ),  1 
    objDataBase.Parameters.Add "obj", ActiveSheet.Cells(ActiveCell.Row,  2 ),  1 
    DvsVsn = ""
    For i =  1  To ActiveSheet.UsedRange.Columns.Count
      s1 = ActiveSheet.Cells( 1 , i)
      p1 = InStr(s1, "|")
      If (p1 >  0 ) And (ActiveSheet.Cells(ActiveCell.Row, i) <> "") Then
        DvsVsn = DvsVsn + Mid(s1,  1 , p1 -  1 ) + "|" + CStr(ActiveSheet.Cells(ActiveCell.Row, i)) + ";"
      End If
    Next i
    objDataBase.Parameters.Add "dvsvsn", DvsVsn,  2 
   'Создаем объект, куда будет помещен результат выполнения запроса. strSQL - это текст запроса
    strSQL = "SELECT vsn.vsn_id, decode(vsn.vsn_id, 0, 'Не требуется', nvl(nvl(valchar, valnum),valdate)), valchar, valnum, valdate name FROM TABLE (ap_exp_system_us.excelvsnset (:mlt, :clf, :cls, :sgn, :dvs, :obj, :dvsvsn)) t, vsn, vds where vsn.sgn_id = :sgn and vds.mlt_id = :mlt and vds.clf_id = :clf and vds.cls_id = :cls and vds.sgn_id = vsn.sgn_id and vds.vsn_id = vsn.vsn_id and vds.dvs_id = :dvs and( vsn.vsn_id = t.column_value or t.column_value is null) order by valchar, valnum, valdate"
    Set qurVSN = objDataBase.DBCreateDynaset(strSQL,  0 &)
       
    If qurVSN.RecordCount >  0  Then
      qurVSN.MoveFirst
      For i =  1  To qurVSN.RecordCount
        Sheets("LIST").Cells(i,  1 ) = qurVSN.Fields( 0 ).Value
        Sheets("LIST").Cells(i,  2 ) = qurVSN.Fields( 1 ).Value
        qurVSN.MoveNext
      Next i
    End If
    
    'выпадающий список
    ActiveSheet.Unprotect ("incon")
    
    With Selection.Validation
      .Delete
      If qurVSN.RecordCount >  0  Then
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertWarning, Operator _
         :=xlBetween, Formula1:="=LIST!$B$1:$B$" + CStr(qurVSN.RecordCount)
      Else
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertWarning, Operator _
         :=xlBetween, Formula1:="=LIST!C1:C1"
      End If
      .IgnoreBlank = False
      .InCellDropdown = True
      .InputTitle = ""
      .ErrorTitle = "    Внимание!"
      .InputMessage = ""
      .ErrorMessage = "                Значение не подтверждено правилами!"
      .ShowInput = True
      .ShowError = True
    End With
   ' ActiveSheet.Protect ("incon")
    
  End If
End Sub