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



" wrote:

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").Act ivate
activeWindow.WindowState = xlMaximized
Workbooks(strOutput).Worksheets("DataDumpCir").Ran ge("$A$6","$A$6").Select
Workbooks(strOutput).Worksheets("DataDumpCir").Ran ge("$A$6","$A$6").Paste

thanks