não sei se entendi. Mas tente assim:

Sub Macro1()
'
' Macro1 Macro
'
Dim Nome As String
Dim idade As Variant

Nome = Sheets("Dados").Cells(2, 2).Value
idade = "=VLookup(Nome, TabColab, 2, False)"

Sheets("Dados").Cells(3, 2).Select
ActiveCell.Formula = idade

End Sub

Não funciona, agora apresenta erro com #Nome?, pois não reconhece a variavel "Nome" do Procv.

=PROCV(Nome; TabColab; 2; FALSO)

Segue anexo planilha.

http://www.estilonaweb.com/Vlookup.zip

Obrigado pela Ajuda.

Romeu

Rklug,

Você havia esquecido de dar o nome para região NOME.

Segue planilha funcionando.

Abraço,

Henrique Ronconi

Veja
Esta "Coloca" a formula Procv na celula B3

Sub Macro1()
Dim Nome As String
Dim idade As Variant
Nome = Sheets("Dados").Cells(2, 2).Address
idade = "=VLookup(" & Nome & ", TabColab, 2, False)"
Sheets("Dados").Cells(3, 2) = idade
End Sub

e esta coloca o valor (encontrado) na celula C3

Sub Macro2()
Dim Nome As String
Dim idade As Variant
Nome = Sheets("Dados").Cells(2, 2).Value
idade = Application.VLookup(Nome, Range("TabColab"), 2, False)
Sheets("Dados").Cells(3, 3) = idade
End Sub
[code][/code]