Имя кнопки без явного указания

[A_L_E_X]

Sub Имя_Кнопки()
'
' Макрос7 Макрос
' Макрос записан 13.03.2010 (User) Выделение кнопки
'
'Выбор кнопки и получение ее имени
    ActiveSheet.Shapes("СТВ_1").Select
        ИМЯ = Selection.Name

MsgBox "Имя кнопки " & ИМЯ

'Выделение начала диапазона по полученному имени
    Range(ActiveSheet.Shapes(ИМЯ).TopLeftCell.Address).Offset(1, 0).Select

End Sub

Вот такой код.
По нажатию на кнопку должно появиться ее имя и выделиться ячейка под ней.
Как сделать без прямого указания ее имени в 1й строке?

[EducatedFool]

Вот варианты попроще:

Private Sub CommandButton1_Click()
    Me.CommandButton1.TopLeftCell.Offset(1) = Me.CommandButton1.Caption
End Sub

Sub Кнопка()
    Me.Shapes(Application.Caller).TopLeftCell.Offset(1) = Application.Caller
End Sub

И пример файла (с 3 разными типами кнопок):

[A_L_E_X]

Спасибо, попробовал второй вариант - сработало.
Правда, после замены Me. на ActiveSheet.
Что зачит это Me?
И еще, почему в Вашем файле нет модулей, а пример работает?

P.S. "Благодарности принимаются ..." - можно подробности в личку?

[EducatedFool]

Что значит это Me?

Me - это ссылка на объект, в модуле которого расположен код.
В данном случае, код расположен в модуле листа - поэтому Me ссылается на лист, на котором расположены кнопки.

почему в Вашем файле нет модулей, а пример работает?

Код можно размещать как в стандартном модуле, так и в модулях листов или книги.
Есть, конечно, разница, но в данном случае это не принципиально.

[A_L_E_X]

Сообщение от EducatedFool

[B]
Код можно размещать как в стандартном модуле, так и в модулях листов или книги.
Есть, конечно, разница, но в данном случае это не принципиально.

Если еще не надоел - а в чем разница?

[EducatedFool]

а в чем разница?

Разница между Me и activesheet: набрав Me в модуле листа, и нажав точку, получаем выпадающий список методов для объекта типа Worksheet - это облегчает (ускоряет) набор кода.
После набора activesheet и точки, к сожалению, выпадающий список свойств и методов не появляется (недоработка Microsoft)

Разницы при использовании различных модулей для обычных макросов, вызываемых кнопкой на листе, нет.
Модули листов и книги обычно используются для обработчиков событий соответствующих объектов - например, чтобы отловить изменение ячейки, открытие книги, активацию листа, и т.п.

В стандартных модулях обычно помещают код, который должен быть доступен из других мест - к примеру, пользовательские функции, которые должны работать на всех листах.