Sub Macro1()
'
' Macro1 Macro
' Macro recorded 11/11/2003 by sheetal mehta
'

'
Windows("Book3").Activate
ActiveWindow.Zoom = 75
Cells.Replace What:="$", Replacement:="", LookAt:=xlPart
SearchOrder:= _
xlByRows, MatchCase:=False
Columns("A:A").Select
Selection.Copy
Windows("New_format_PL_071103_test.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("Book3").Activate
Columns("B:D").Select
Application.CutCopyMode = False
Selection.Copy
Windows("New_format_PL_071103_test.xls").Activate
Range("C1").Select
ActiveSheet.Paste
Windows("Book3").Activate
Columns("F:T").Select
Application.CutCopyMode = False
Selection.Copy
Windows("New_format_PL_071103_test.xls").Activate
Range("G1").Select
ActiveSheet.Paste
End Su

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com