I am using this code, which works perfectly for 2003
Sub CSVLBAFEB()
'
' CSVLBASEP Macro
' Macro recorded 14/09/2006 by Paul Hailes
'
'
Columns("FD:FF").Select
Selection.Copy
Workbooks.Add
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ChDir "L:\Payroll"
ActiveWorkbook.SaveAs Filename:="L:\Payroll\LBAFEB07.csv", FileFormat:=xlCSV _
, CreateBackup:=False
End Sub
It seems to fail on the pasting of column Widths, even when i try to record a macro, by copying and pasting widths it fails? I dont understand...does anyone else ?
Sub CSVLBAFEB()
'
' CSVLBASEP Macro
' Macro recorded 14/09/2006 by Paul Hailes
'
'
Columns("FD:FF").Select
Selection.Copy
Workbooks.Add
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ChDir "L:\Payroll"
ActiveWorkbook.SaveAs Filename:="L:\Payroll\LBAFEB07.csv", FileFormat:=xlCSV _
, CreateBackup:=False
End Sub
It seems to fail on the pasting of column Widths, even when i try to record a macro, by copying and pasting widths it fails? I dont understand...does anyone else ?