Run Time Error 1004

[loftis01]

The following macro results in the aforementioned error.

ThisWorkbook.Worksheets(Array("Wire Request")).Copy
ActiveWorkbook.SaveAs Cells(1, 1).Value, FileFormat:=56
Cells.Select
Selection.Copy
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'
End Sub

Any suggestions would be helpful.

Thank you.

 

[muckshifter]

http://support.microsoft.com/kb/210684