tenta agora:

Private Sub txtAdmLocal_GotFocus()


'a formatação da TextBox Adm Local é ##.00%

y = 0

If txtAdmLocal = "" Then
    txtAdmLocal.Value = 0
Else
    y = txtAdmLocal.Value * 2
End If

Range("l11").Value = y


End Sub

usei o código mas o problema persiste

Olá, só para confirmar esse código é do Excel mesmo?

Aqui eu uso assim veja:
Private Sub txtAdmLocal_AfterUpdate()
y = 0
y = txtAdmLocal.Value * 2

Range("l11").Value = y

End Sub

Esse código será executado ao sair do objeto... se quiser executar ao entrar use

Private Sub txtAdmLocal_Enter()
y = 0
y = txtAdmLocal.Value * 2

Range("l11").Value = y

End Sub

Att; Edivan Cabral

VISITE MEU BLOG:
programacaopassoapasso.wordpress.com

Para constar: o erro reportado normalmente ocorre quando se deseja efetuar uma operação entre tipos diferentes.
A textbox por default, apesar da formatação, "devolve" os valores como texto; assim ao utilizar o valor do textbox diretamente, e muito provável ocorrer erro.
Converta o valor do text, com uma das funções de converção Cdec, Cdbl...