WorksheetFunction in VBA

My workbook has a sheet called "MyList", another called "HisList" , a named range called "myNamedRange" which is "MyList!A:A".

How do I get this functionality of this excel formula

 Countif(MyList!A:A, HisList!A1)

in this vba code

dblvalue=application.worksheetFunction(...)
msgbox dblvalue

The following code works with a named range

wsHisList = Worksheets("HisList").Range("A1").offset(0,0).value
Application.worksheetFunction(Range("myNamedRange"), wsHisList)

My question is how can I use "MyList!A:A" directly in the worksheet function.

Thanks

You have a few options:

dblvalue = Application.WorksheetFunction.CountIf(Sheets("MyList").Columns(1),Sheets("HisList").Cells(1,"A"))

(note you can use Application.CountIf also (ie dispose of WorksheetFunction))

or you can use Evaluate

dblValue = Application.Evaluate("COUNTIF(MyList!A:A,HisList!A1)")