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