#If Win64 Then
    #If VBA7 Then    ' Windows x64, Office 2010
        Declare PtrSafe Function GetTickCount Lib "Kernel32" () As LongLong
    #Else    ' Windows x64,Office 2003-2007
        Declare Function GetTickCount Lib "Kernel32" () As LongLong
    #End If
#Else
    #If VBA7 Then    ' Windows x86, Office 2010
        Declare PtrSafe Function GetTickCount Lib "Kernel32" () As Long
    #Else    ' Windows x86, Office 2003-2007
        Declare Function GetTickCount Lib "Kernel32" () As Long
    #End If
#End If

Function OOO_data(Baza, OOO, data As Date)
    Dim r, ar, d
    ar = Baza.Value
    For r = 1 To UBound(ar)
        If ar(r, 1) = OOO Then
            If data >= ar(r, 4) Then
                If data <= ar(r, 5) Then
                    OOO_data = ar(r, 3)
                End If
            End If
        End If
    Next
End Function

Application.ScreenUpdating=true
Application.EnableEvents=true

Sub Macros5()
Dim s
Sheets("Лист1").Select
Set fcell = Columns("A:A").Find("Санкт-Петербург")
If Not fcell Is Nothing Then
    MsgBox "Санкт-Петербург Нашел в строке: " + CStr(fcell.Row)
    s = s + 1
End If

Set fcell = Columns("A:A").Find("Москва")
If Not fcell Is Nothing Then
    MsgBox "Москва Нашел в строке: " + CStr(fcell.Row)
    s = s + 2
End If

Select Case s
    Case 1 'питер
'        макрос 1
    Case 2 ' москва
'        макрос 2
    Case 3 ' оба
'        макрос 3
End Select


End Sub

Sub DV_Test()
    Dim List(1 To 12) As Variant, i As Integer
Dim d
    For i = 1 To UBound(List)
        List(i) = MonthName(i)
    Next

    With Range("A1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
            Operator:=xlEqual, Formula1:=Join(List, ",")
    End With
    ComboBox1.List = List
End Sub

Sub qwertí()
Dim m, i, j, s
m = [g7..o9].Value
For i = UBound(m, 2) To 1 Step -1
    s = m(1, i) + m(2, i) + j
    j = IIf(s > 1, 1, 0)
    m(3, i) = s Mod 2
Next i
[g7..o9] = m
End Sub

arr = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\Temp\список.txt", 1).ReadAll, vbCrLf)    'массив строк текста целиком

tex=arr(ubound(arr))

 ActiveSheet.Shapes.AddShape(msoShapeOval, 290.25, 86.25, 49.5, 49.5).Select