declaring the variable doesn't set it to anything..
try this:
***********

Public newWorkBook As Excel.Workbook

Sub copy()
Windows("book1").Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.copy

Set newWorkBook = Application.Workbooks.Add
newWorkBook.Activate


Range("A1").Select
ActiveSheet.Paste
End Sub




-----Original Message-----
anybody an idea why I receive a run time error with the
below code,?


Sub copy()
Windows("book_master.xls").Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Workbooks(newWorkBook).Activate
Range("A1").Select
ActiveSheet.Paste
End Sub


I have declared the workbook as a variable

Public newWorkBook As Excel.Workbook



thanks

portroe

.