ForceOne

Estou construindo a ação que eu quero que o código faça, mas estou travado na última parte, eu seleciono uma célula (e3) da aba s que fica na planilha w que eu abri, mas ele ta erro quando eu tento selecionar o intervalo com o End(x1ToRight). Já tentei algumas variações pra ver se ia, mas não sei o que está errado, se alguém puder ajudar seria ótimo Sub attbacklog() Dim w As String Dim s As Worksheet w = "L:\data\Douglas\Cod\Ano 2021\Teste.xlsm" On Error GoTo prox Workbooks.Open (w) prox: Windows("KPI Planejamento 2021.xlsm").Activate Set s = Sheets("Tabela Backlog") s.Activate s.Range("E3").Select Range(Selection, Selection.End(xlToRight)).Select End sub