Copy from one workbook to another

[Living2xcess]

I know I am doing I am missing something very basic, but I can not for the life of me figure it out. I am trying to copy cells D3:D43 to another workbook's cells E3:E43. Can somebody tell me what I have wrong here? I get the error message on the last command.


Sub Appointments()

Application.ScreenUpdating = False

''''''''Declare Variables
Dim Appts As Workbook
Dim Source As Workbook
Dim EOD As String

'''''''''Set Variable Values
Set Appts = ActiveWorkbook

'''''''''Open Report
MsgBox "Please Open The End Of Day File"

EOD = Application.GetOpenFilename
If EOD = "False" Then Exit Sub

Workbooks.Open EOD
Set Source = ActiveWorkbook

Appts.Cells(3 & "E", 43 & "E").Value = Source.Cells(3 & "D", 43 & "D").Value

End Sub

 

[Living2xcess]

I also tried:

Appts("Appointments").Range("E3:E43").Value = Source("Appointments & Declines").Range("D3:D43").Value

I get the error message "Object does not support this property or method"

 

[Living2xcess]

This gives me an "automation error"

Appts.Sheets(1).Range("E3:E43").Value = Source.Sheets(1).Range("D3:D43").Value

 

[Living2xcess]

Does anybody know any alternative commands to copy from one workbook to another without using copy and pastes commands? I use huge data files, so I am trying to bypass copying to the clipboard and then pasting it into the other excel file.

 

[Living2xcess]

Problem solved: I switched ActiveWorkbook with Thisworkbook and it works as it should. If someone knows the reason ActiveWorkbook didn't work, I would love to know.