Sorry about that.......I forgot.
It works well now. I only made one change to it

If Range("AZ14").Value = "" Then
Range("BB14").Value = ""
Else
Range("BB14").Value =
Application.WorksheetFunction.VLookup(Range("AZ14" ), Sheet3.Range("A:B"), 2,
0)
End If

Many thanks
--
Tdp


"Per Jessen" wrote:

Hi Tdp

As you don't write which cell could be empty I assume that it's AZ4.

If Range("AZ4").Value = "" Then
x = 0
Else
x = Application.WorksheetFunction.VLookup(Range("AZ4") ,
Sheet3.Range("A:B"), 2, 0)
End If

Regards,
Per
"Tdp" skrev i meddelelsen
...
Just one more question Per
With this code how do I include if the cell is empty then show zero?
--
Tdp


"Tdp" wrote:

Thanks Per that seems to work fine
Many thanks
--
Tdp


"Per Jessen" wrote:

Try this:

x = Application.WorksheetFunction.VLookup(Range("AZ4") ,
Sheet3.Range("A:B"),
2, 0)

Regards,
Per

"Tdp" skrev i meddelelsen
...
How do I change the following as a vb code???
=VLOOKUP(AZ4,Sheet3!A:B,2,0)
--
Tdp