Tom,
Look at the code:
Sub Macro1()
'Comments.....
Sub OpenWorkbook()

You have no "End Sub" for Macro1.

NickHK

"TomBP" wrote in
message ...

Nick

It gives the following error

[image: http://i54.photobucket.com/albums/g115/TomBP/Error.jpg]

The C3 range was wrong. It should be J5. I adjusted this but that
doesn't seem to do the trick.


--
TomBP
------------------------------------------------------------------------
TomBP's Profile:
http://www.excelforum.com/member.php...o&userid=36112
View this thread: http://www.excelforum.com/showthread...hreadid=559237