Запуск макроса при условии

[Сергей846]

Подскажите как в макросе прописать запуск процедуры №1 если в ячейке "A1" содержится "GBR", а если не содержится процедуры №2. Заранее спасибо.

[VictorM]

Так можно

Sub tt()
    Dim значение As String
    значение = [a1]
    If значение = "GBR" Then
        Call MsgBox("Процедура 1", vbExclamation, "")
    Else
        Call MsgBox("Процедура 2", vbExclamation, "")
    End If
End Sub

з.ы. вместо MsgBox название Ваших процедур (или код)

[kuklp]

Вить, я бы попроще сделал:

Sub tt()
    Dim z$: z = IIf([a1] = "GBR", "Процедура1", "Процедура2"): Application.Run z
End Sub

П.С.
Это после решений Сергея(SAS888) маниакальное желание все упрощать и сокращать:-)

[SAS888]

...маниакальное желание все упрощать и сокращать

Ну, тогда так:

Sub tt()
    Application.Run IIf([A1] = "GBR", "Процедура1", "Процедура2")
End Sub

[kuklp]

Умница Серег, что еще скажешь:-)

[vikttur]

Нужное получил, отметиться посчитал ненужным.

[kuklp]

Да, нехорошо. Но еще и не вечер, может зайдет еще, отпишется
Спасибо, Вить.

[Сергей846]

Всем спасибо! Не было возможности сразу отблагодарить. Вариантов оч. много. Спасибо!

[OMEN_6666]

Спасибо, тоже искал способ запуска макросов по условию!

[Hugo121]

Sub tt()
Select Case [a1]
   Case "GBR": Процедура1: Exit Sub
End Select
Процедура2
End Sub

Sub Процедура1(): MsgBox 1: End Sub
Sub Процедура2(): MsgBox 2: End Sub

Можно Case нарастить ещё условиями, и Процедура2 тоже перенести внутрь.