Запуск макроса, когда активная ячейка находится в указанных c столбцах

Question

Я хотел бы запустить макрос, когда активная ячейка есть только в столбцах G, Q и Z. Как я могу сузить ее, чтобы она работала только в этих 3 столбцах, а не в диапазоне от G до Z? Пытался установить 3 разных целевых адреса, но это не сработало.

If Selection.Cells.Count = 1 Then

    Set A = Application.Intersect(Range(Target.Address), Range("G4:Z2500"))
    If Not A Is Nothing Then
    Call macro
    Else: Call DeleteAllShapes
    End If

End If

Answer 1

Поместите это в начало.

if target.column=7 or target.column=17 or target.column=26 then exit sub

или

If not Intersect(Target, Range("G:G,Q:Q,Z:Z")) Is Nothing Then Exit Sub
'etc