Runtime error 9

[MAMIBUSSOL]

Hi

what might I be missing with this code

SETAREA - procedure within the same module
PASSWEEKNO - assigned using application.inputbox - value = 0
FILE0 - contains "TEST"
WORKBOOKS(WAGES2) - contains "2009-06-12.xls"
WORKBOOKS(FILE1) - contains "test 2009.xlsm

all of the variable are containing the correct information, however if I highlight

WORKBOOKS(FILE1) - I get <subscript out of range>

[SIZE=1]PASSWEEKNO = Application.InputBox("ENTER PAYSLIP NUMBER ?", "PRINT PAYSLIP", Type:=1)
[/SIZE]

[SIZE=1]SETAREA PASSWEEKNO, FILE0, Workbooks(WAGES2), [B]Workbooks(FILE1)
[/B][/SIZE]

[SIZE=1]Sub SETAREA(WEEKNO As Variant, Sheet1 As Variant, WAGES As Workbook, FILE As Workbook)
[/SIZE]

I need to tie up to:-

PASSWEEKNO - WEEKNO
FILE0 - SHEET1
WORKBOOKS(WAGES2) - WAGES AS WORKBOOK
WORKBOOKS(FILE1) - FILE AS WORKBOOK

 

[bstory84]

The issue should be your workbook references. they variables "WAGES2" and "FILE1" shoud be stored as strings, also the workbooks need to be opened. if they are not opened then you need to change your the Sub "SETAREA" types from "workbook" to String and then have the sub open those workbooks.