I have created a macro that can takes data from another spreadsheet, and
copies values individually into various cells. I am not copying the
the whole spreadsheet, only various bits.

My problems is, every time I run the macro, it duplicates the original
data. should i run the macro from a different spreadsheet, or should i
run it from the same spreadsheet. how can i avoid this duplication?

thanks


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

Perhaps you should paste your code into a message...

Where does the duplication take place?

In article ,
Sheetal wrote:

I have created a macro that can takes data from another spreadsheet, and
copies values individually into various cells. I am not copying the
the whole spreadsheet, only various bits.

My problems is, every time I run the macro, it duplicates the original
data. should i run the macro from a different spreadsheet, or should i
run it from the same spreadsheet. how can i avoid this duplication?

thanks

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