Instead of making us try and figure out what your code is doing by reading
it, why don't you make our job easier by telling us what it does?

--
Rick (MVP - Excel)


"Murray" wrote in message
...
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