Ole,
bk should be declared as Workbook (singular) not Workbooks
(plural).
Dim bk As Workbook
--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
"ole_" wrote in message
...
"Chip Pearson" skrev i en meddelelse
...
Ole,
The problem is likely cause by line breaks in Tom's otherwise
correct reply. The code
bk.worksheets(1).Range("C1:C5").Value =
worksheets(1).Range("A1:A5").Value
should be on a single line of code in the editor. Or, you can
use
the line continuation character to split it in to two lines:
bk.worksheets(1).Range("C1:C5").Value = _
worksheets(1).Range("A1:A5").Value
--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
Hi Chip,
Now i get another error:
"Compile error: ethod or data member not found" and then
".worksheets" in
bk.worksheets(1).Range("C1:C5").Value = _
is highlighted, here is what i have so far:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim bClose As Boolean
Dim bk As Workbooks
On Error Resume Next
Set bk = Workbooks("Master.xls")
On Error GoTo 0
If bk Is Nothing Then
bClose = True
Set bk = Workbooks.Open("C:\Master.xls")
End If
bk.Worksheets(1).Range("C1:C5").Value = _
Worksheets(1).Range("A1:A5").Value
bk.Save
If bClose Then
bk.Close Savechanges:=False
End If
Application.EnableEvents = False
ThisWorkbook.Save
Application.EnableEvents = True
End Sub
And something else i have been wondering, shouldent the
master.xls open??
Regards,
Ole