Hi Luc
Try this
Dim wb As Workbook
Set wb = Workbooks("Book1.xls")
wb.Sheets("Sheet1").Range("a1").Select
change Set wb = Workbooks("Book1.xls")
--
Regards Ron de Bruin
http://www.rondebruin.nl
"Luc" wrote in message ...
Is there a way that you can put a variable instead of "book1" in the
Workbooks("book1").Worksheets("sheet1").Range("a1" ) statement?