Guru do Excel e Power BI

Bom dia

Option Explicit
Private Sub CommandButton1_Click()
Range("a1").Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Targed As Excel.Range)
Dim effectiveBottomRow As long
Dim my Commandbutton1 As Object
Set myCommandButton1 = ActiveSheet.commandButton1:
With ActiveWindow.VisibleRange
Commandbutton1.Top = .Top + 0
Commandbutton1.Left = .Left + .Width - CommandButton1.Width - 7
End With
End Sub

Rodava normal, agora dá erro de compilação

Anexa a planilha por favor para que possamos depurar.

Ok

Aqui não deu erro algum. Em qual linha deu erro para você?

Perdi diversas macros de diversas planilhas depois de fazer atualização do office 2010 para o 2013 e algumas macros como essa apresentam erros. Desinstalei o 2013 e voltei com o 2010 e sumiu quase tudo

Eu rodei no Office 365 e funcionou normalmente, Qual linha deu erro no Excel 2013?

Tente colocar ActiveSheet.CommandButton1 onde estiver apenas CommandButton1.

Erro em tempo de execução '438':
O objeto não aceita esta propriedade ou método


Set myCommand Button1 =ActiveSheet.CommandButton1:

Tente isso

Set myCommandButton1 = ActiveSheet.CommandButton1

Erro em tempo de execução 438
Objeto não aceita esta propriedade ou método


Vou desinstalar e instalar o office outra vez.

Testei em outro office 365 e a macro rodou normal. Meu Office tá bichado.
Grato pela ajuda