Testa assim:

Sub GetSheets() 'Nome das Sheets
Dim j As Integer
Dim NumSheets As Integer
Dim shp As Shape

NumSheets = Sheets.Count

Range("A2:A" & Rows.Count).ClearContents

For j = 1 To NumSheets
Sheets(j).Activate

For Each shp In Sheets(j).Shapes
If shp.Visible Then
shp.Select
On Error Resume Next
If Selection.Characters.Text = "EXECUTAR" Then
If Err.Number = 0 Then
Sheets("INDICE").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets(j).Name
Range("A1").Activate
End If
Err.Number = 0
End If

End If
Next shp

Next j

Sheets("INDICE").Activate
Range("A1").Activate

End Sub

xmiguelx,

Bom dia!

Segue a minha sugestão.

Amigo Edson não funcionou, ele duplica o nome de cada sheet.

Amigo Wag, sua sugestão funcionou, porém preciso que só liste a sheet que tenha o botão com nome EXECUTAR.

Caso possam me ajudar, eu agradeço.

Sugestão:

Sub GetSheets() 'Nome das Sheets
  Dim ws As Worksheet, btn As Excel.Button
  Dim i As Integer
  For Each ws In ThisWorkbook.Worksheets
    For Each btn In ws.Buttons
      If btn.Caption = "EXECUTAR" Then
        i = i + 1
        Worksheets("INDICE").Cells(i + 1, 1).Value = ws.Name
      End If
    Next btn
  Next ws
End Sub

não seria bem mais simples e pratico ter uma celula de controle na aba?
tipo A1
assim ficaria facil varrer as abas listar e classificar facilmente cada uma delas
fora que vc pode querer fazer modificação nos controles futuramente

bem pelo menos é assim que eu faço