Relacionar una celda de una hoja con otra celda de otra hoja con macros

Tengo un libro de excel con tres hojas
1. bddatos
2. empresas
3. consultas

¿cómo puedo hacer para que por medio de una macro en la hoja 'consultas'
relacione la celda empresas!F2 y la coloque en la celda consultas!F2 por
medio de una macro?
intente lo siguiente:

sub routine1()
dim codigo as string
Sheets('empresas').select
Range("F2").select
codigo=activeCell
Sheets(`consultas').select
Range("F2")=codigo
codigo=empty
end sub

Hay alguna manera de hacerlo más corto?. agradecere cualquier ayuda

ARENART S.R.L.
Augusto Unten T.
Gerencia de Operaciones
Bartolomé Herrera 451 - Lima 14 - PERU
Teléfono: (511)265-7878
Nextel: (511)819*6022
Celular: (511)9819-6022
E-mail: /
website: http://www.arenart.com
Proyekta: http://www.arenart.com/proyekta

hola

a ver si esto te sirve

sub routine1()

worksheets("consultas").range("F2").value=worksheets("empresas").range("F2").value
end sub

un saludo
juan

"auntent" escribió en el mensaje
news:

Tengo un libro de excel con tres hojas
1. bddatos
2. empresas
3. consultas

¿cómo puedo hacer para que por medio de una macro en la hoja 'consultas'
relacione la celda empresas!F2 y la coloque en la celda consultas!F2 por
medio de una macro?
intente lo siguiente:

sub routine1()
dim codigo as string
Sheets('empresas').select
Range("F2").select
codigo=activeCell
Sheets(`consultas').select
Range("F2")=codigo
codigo=empty
end sub

Hay alguna manera de hacerlo más corto?. agradecere cualquier ayuda

ARENART S.R.L.
Augusto Unten T.
Gerencia de Operaciones
Bartolomé Herrera 451 - Lima 14 - PERU
Teléfono: (511)265-7878
Nextel: (511)819*6022
Celular: (511)9819-6022
E-mail: /
website: http://www.arenart.com
Proyekta: http://www.arenart.com/proyekta