Have you got the name "Fixed.xls" absolutely correct? If the sheet
does not exist you get the Run-time error  '9'; Subscript out of range
message.
Does Worksheet(1) exist? (I suppose it must) but to debug try
temporarily referring to it with its name instead of its index eg.:
x = Workbooks("Sheet1").Worksheets(1).Cells(i, 2).Value

The code  in your message doesn't activate Fixed.xls by the way, nor
does it need to, to work.

Is the workbook  already open? Have you tried activating  the workbook? The code
you have sent only sets the variables - it doesn't do anything with them.

Is the workbook  "fixed.xls" open, when you run  the procedure? In case
not add to the code  lines from help  which opens workbook and close it.

I got solution of the problem  and thought to share
with u all.

My file name was Fixed.xls
and i was giving run  time error  against Fixed.xls
But when I changed my argument to "fixed.xls"....that
is all in small letters...it accepted and my problem
was solve..

Have u opened the work book before storing the value in any variable?
Try following code  for ur problem, and then see wht happen?

Dim a as string
Dim filepath as string
filepath = "C:\"
a="Fixed.xls"
workbooks.open(filepath & a)
x= workbooks(a).Worksheets(1).Cells(i,2).value