Problem copying a range to a different workbook

[BobE]

I can't get this to work at all, could someone tell me what's wrong
with this?

Workbooks(strHCW).Worksheets("Agn").Activate
ActiveWindow.WindowState = xlMaximized
Workbooks(strHCW).Worksheets("Agn").Range("$A$1", "$A$1").Select
Selection.Copy
ActiveWindow.WindowState = xlMinimized
Workbooks(strOutput).Worksheets("DataDumpCir").Activate
activeWindow.WindowState = xlMaximized
Workbooks(strOutput).Worksheets("DataDumpCir").Range("$A$6","$A$6").Select
Workbooks(strOutput).Worksheets("DataDumpCir").Range("$A$6","$A$6").Paste

thanks

 

[BobE]

I sorted the problem out, I found a good example in this group which
worked.

thanks

 

[Norman Jones]

Hi Bob,

The following worked for me:

Sub Tester()
Dim strHCW As String
Dim StrOutput As String

strHCW = "Book1.xls" '<<====== CHANGE
StrOutput = "Book2.xls" '<<====== CHANGE

Workbooks(strHCW).Sheets("Agn").Range("A1").Copy Destination:= _
Workbooks(StrOutput).Sheets("DataDumpCir").Range("A6")

End Sub

Change the names of the two workbooks to reflect your names.

 

[Guest]

Try

Sub CopyPaster()

Windows(strHCW).Activate
Sheets("Agn").Select
Range("A1").Select
Selection.Copy
Windows("strOutput").Activate
sheets(DataDumpCir").Select
Range("A6").Select
ActiveSheet.Paste

End Sub