- Joined
- May 9, 2012
- Messages
- 10
- Reaction score
- 0
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.
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.