THe worksheets i copy from vary
NSW_This_Month_TOPSalesmen.xls
NSW_YTD_TOPSalesmen.xls
NSW_This_month_TOPProducts.xls
NSW_YTD_TOPProducts

"Barb Reinhardt" wrote:

It would help if you'd provide the worksheet name that you are copying and
pasting from/to.

Barb Reinhardt

"Murray" wrote:

HI i have some code that seems very long to preform a simple task, is thera
way to get the same result with a shorter code

Workbooks.Open ("C:\MIS Reports output - crystal\Xcel
export\NSW_This_Month_TOPSalesmen.xls")
Windows("NSW_This_Month_TOPSalesmen.xls").Activate
Range("F7").Select
Selection.Copy
Windows("0810 NSW Store Reports.xls").Activate
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("C6").Select
Windows("NSW_This_Month_TOPSalesmen.xls").Activate
Range("K7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("0810 NSW Store Reports.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("NSW_This_Month_TOPSalesmen.xls").Activate
Range("F8").Select
Application.CutCopyMode = False
Selection.Copy
Windows("0810 NSW Store Reports.xls").Activate
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("NSW_This_Month_TOPSalesmen.xls").Activate
Range("K8").Select
Application.CutCopyMode = False
Selection.Copy
Windows("0810 NSW Store Reports.xls").Activate
Range("C7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("NSW_This_Month_TOPSalesmen.xls").Activate
Range("F9").Select
Application.CutCopyMode = False
Selection.Copy
Windows("0810 NSW Store Reports.xls").Activate
Range("B8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("NSW_This_Month_TOPSalesmen.xls").Activate
Range("K9").Select
Application.CutCopyMode = False
Selection.Copy
Windows("0810 NSW Store Reports.xls").Activate
Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("NSW_This_Month_TOPSalesmen.xls").Activate
Range("F10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("0810 NSW Store Reports.xls").Activate
Range("B9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("NSW_This_Month_TOPSalesmen.xls").Activate
Range("K10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("0810 NSW Store Reports.xls").Activate
Range("C9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("NSW_This_Month_TOPSalesmen.xls").Activate
Range("F11").Select
Application.CutCopyMode = False
Selection.Copy
Windows("0810 NSW Store Reports.xls").Activate
Range("B10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("NSW_This_Month_TOPSalesmen.xls").Activate
Range("K11").Select
Application.CutCopyMode = False
Selection.Copy
Windows("0810 NSW Store Reports.xls").Activate
Range("C10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Help is appreicated