Erro de definição de objeto

[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
 

[Alyson Ronnan Martins]

Boa tarde @ForceOne

Eu não testei seu código porêm é possivel fazer de outra maneira:

... 'Seu código
uLinhas = s.cells(rows.count, "E").end(xlup).row

'Agora é feita a seleção 
s.range("E3:E" & uLinha).select