error 1004 en el metodo range del objeto global

Tengo una rutina en access que exporta a excel y crea un hypervinculo en
una
determinada celda.El problema es que la primera vez que ejecuta el codigo
funciona bien. Pero la segunda vez que lo ejecuto me da el error antes
expuesto. Si me salgo de la base de datos y vuelvo a entrar, funciona la
primera vez.
el codigo es
Celda = "X" & irow
NombrePlano = Nz(rs("FOTO1"))
If NombrePlano <> Null Then
Set oExcel1 = Range(Celda).Hyperlinks.Add _
(Range(Celda), NombrePlano)
End If

si elimino estas lineas puedo ejecutar la rutina y genera bien el XLS.

gracias

No puedes añadir un hiperlink a una celda que ya lo tiene. Antes de crear el
hiperenlace comprueba si ya existe uno y, en suc aso, lo borras.


"Javier VFM" escribió en el mensaje de
noticias news:
> Tengo una rutina en access que exporta a excel y crea un hypervinculo en
> una
> determinada celda.El problema es que la primera vez que ejecuta el codigo
> funciona bien. Pero la segunda vez que lo ejecuto me da el error antes
> expuesto. Si me salgo de la base de datos y vuelvo a entrar, funciona la
> primera vez.
> el codigo es
> Celda = "X" & irow
> NombrePlano = Nz(rs("FOTO1"))
> If NombrePlano <> Null Then
> Set oExcel1 = Range(Celda).Hyperlinks.Add _
> (Range(Celda), NombrePlano)
> End If
>
> si elimino estas lineas puedo ejecutar la rutina y genera bien el XLS.
>
> gracias
>

.