Есть макрос для excel, привязываю его к фигуре, фигура находится в определенной ячейке. В данном случае в B6, как сделать так, чтобы мне не приходилось менять вручную адрес ячейки, а получать его в зависимости от места расположения фигуры? Например, фигура расположена в ячейке B9, соответственно получаю адрес ячейки из расположения фигуры и делаю уже инкремент.
Sub mac1()
With Range("B6")
If IsNumeric(.Value) Then
Application.EnableEvents = False
.Value = .Value + 1
Application.EnableEvents = True
End If
End With
End Sub