Workbook Open Macro

[natarajr]

This below macro used to work in the older version of excel. It does not work now. Any help is appreciated!!
Thanks

Sub OpenPrintMacro()

Dim Fname

For i = 1 to 5

Fname = Worksheets("FileNames").Range("a"+i).value
Workbooks.open.filename:= "C:\My Documents\Files\" & Fname
ActiveWindow.selectedsheets.Printout copies:=1
ActiveWorkbook.close

Next i
End Sub




WorkSheet FileNames

Range a1 = Test1.xls
Range a2 = Test2.xls
Range a3 = Test3.xls
so on and so forth.............

[Dave Peterson]

It sure looks like it would work if the values in the A1:A5 corresponded to
real filenames in "c:\my documents\files".

I'd check that first.

If that isn't it, you may want to post what happens when it fails.

natarajr wrote:
>
> This below macro used to work in the older version of excel. It does
> not work now. Any help is appreciated!!
> Thanks
>
> Sub OpenPrintMacro()
>
> Dim Fname
>
> For i = 1 to 5
>
> Fname = Worksheets("FileNames").Range("a"+i).value
> Workbooks.open.filename:= "C:\My Documents\Files\" & Fname
> ActiveWindow.selectedsheets.Printout copies:=1
> ActiveWorkbook.close
>
> Next i
> End Sub
>
> WorkSheet FileNames
>
> Range a1 = Test1.xls
> Range a2 = Test2.xls
> Range a3 = Test3.xls
> so on and so forth.............
>
> --
> natarajr
> ------------------------------------------------------------------------
> natarajr's Profile: http://www.excelforum.com/member.php...o&userid=27807
> View this thread: http://www.excelforum.com/showthread...hreadid=473174

--

Dave Peterson