Primeiramente, delcare "As Workbook" (sem "s")

Em segundo lugar, se vc declarou uma variável, ela não pode ser o nome da sub. Vc quer ter uma sub que contenha argumentos? Então creio outro nome para a sub, e crie outro nome para o argumento, algo assim:

Dim esteLivro As Workbook

Sub nome_da_sub(nova_variavel)

Agora, se vc quer ter uma sub sem argumentos, vc precisa atribuir valor à variável, senão ela vai estar vazia e vai dar erro:

Sub nome_da_sub()

Dim esteLivro As Workbook

Set esteLivro = ThisWorkbook

Depois vc vai poder usá-la:

esteLivro.Activate

Resultou. Obrigada