This is my macro. I get a #n/a. Is there something wrong with my macro?

Sub Macro1()
Dim VBAK As Variant
Dim Lookup_Table_VBAK As Range
VBAK = Application.GetOpenFilename
If VBAK = False Then Exit Sub 'User cancelled
Workbooks.Open Filename:=VBAK
Set Lookup_Table_VBAK =
ActiveWorkbook.Worksheets("sheet1").Range("A1:EZ65 000")
Windows("Billable Jobs Tierney Total Validation.xls").Activate
Sheets("Header-Sales").Select
Range("D3").Value = Application.VLookup("C3", Lookup_Table_VBAK, 2, 0)

--
Regards,
Jeff



"Dave Peterson" wrote:

It can't hurt...

Set Lookup_Table_VBAK = worksheets("sheet1").Range("A1:EZ65000")
or
Set Lookup_Table_VBAK = activeworkbook.worksheets("sheet2").Range("A1:EZ65 000")

or something like this.





Jeff wrote:

Hi,

Do I need to indicate a worksheet for my range Set Lookup_Table_VBAK ?
--
Regards,
Jeff

"JE McGimpsey" wrote:

Try:

Set Lookup_Table_VBAK = Range("A1:EZ65000")

In article ,
"Jeff" wrote:

Hello,

I have the following VBA Macro. But I'm getting an error msg on the Set
Lookup_Table_VBAK = ("A1:EZ65000").range
Can any one help?

Sub Macro1()
Dim VBAK As Variant
Dim Lookup_Table_VBAK As Range
VBAK = Application.GetOpenFilename
If VBAK = False Then Exit Sub 'User cancelled
Workbooks.Open Filename:=VBAK
Set Lookup_Table_VBAK = ("A1:EZ65000").range
Windows("Billable Jobs Tierney Total Validation.xls").Activate
Sheets("Header-Sales").Select
Range("D3").Value = Application.VLookup("C:C", Lookup_Table_VBAK, 2, 0)


--

Dave Peterson