Hi.
The error 1004 message (imposible to get the VLookup
property of the WorksheetFunction class) appears when the
debugger reaches the next line:

Worksheets("graf").Range("E15").Value =
Application.WorksheetFunction.VLookup(numero, refa, 147,
falso)

I've declared:
Dim numero As Integer
Dim refa As Range
Set refa = Worksheets("refa").Range("A1:EP229")
numero = Val(frmConsulta.cboNo.Value)

Any idea?