Maybe reading the answers you get would be a good thing too.

--
Regards,
Tom Ogilvy

"ianripping " wrote in message
...
its ok i've done it again. I should do this before I post I know.

Workbooks.Open Filename:=Range("C1").Value
ActiveWindow.WindowState = xlNormal
Sheets("Sheet2").Select
Sheets("Sheet2").Copy Befo=Workbooks("Book1.xls").Sheets(1)
Sheets("Sheet1").Select
ActiveWindow.WindowState = xlMaximized

MsgBox ("Completed Copying")

End Sub


---
Message posted from http://www.ExcelForum.com/