Sub НомерСтрокиСтолбцаДляКнопки()
'Dim ButtonText As String
'ButtonText = Application.Caller
'MsgBox "Название кнопки " & ButtonText

Dim b As Object
Dim cs, rs As Integer
Set b = ActiveSheet.Buttons(Application.Caller)
With b.TopLeftCell
rs = .Row
cs = .Column
End With

MsgBox "Row Number " & rs & " Column Number " & cs
'далее необходимые действия со строкой и столбцом
' Cells(rs + 5, cs).Select

End Sub

Set objSh = CreateObject("Shell.Application")
objSh.Open (ThisWorkbook.Path & "\1\МТС1.zp")

Dim n As String
Dim StartZP As String
Set objSh = CreateObject("Shell.Application")
n = 1
StartZP = """" & "\" & n & "\" & "МТС" & n & ".zp" & """"
MsgBox StartZP
objSh.Open (ThisWorkbook.Path & StartZP)