Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 141
Default rewrite code

Hi,

I sthere a way I can tidy this part of my code up to run more better.

Sub MyCopy()
Range("O7:P16").Copy
Range("A7:B7").Select
ActiveSheet.Paste
Range("Q7:R16").Copy
Range("F7:G7").Select
ActiveSheet.Paste
Range("O18:P27").Copy
Range("A24:B24").Select
ActiveSheet.Paste
Range("Q18:R27").Copy
Range("F24:G24").Select
ActiveSheet.Paste
Range("O29:P38").Copy
Range("A41:B41").Select
ActiveSheet.Paste
Range("Q29:R38").Copy
Range("F41:G41").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Many thanks


Mark
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
rewrite excell files on website Raymondo Excel Discussion (Misc queries) 1 October 28th 08 03:25 PM
Convert/rewrite SUMIFS formula to work in Excel 97 Karin Excel Worksheet Functions 3 August 18th 08 04:09 PM
Help with Macro Using InStrRev: How to Rewrite to Use on Macs and Wart Excel Discussion (Misc queries) 3 April 28th 08 08:49 PM
Rewrite name in new format ALaw Excel Discussion (Misc queries) 4 February 6th 08 04:52 PM
vlookup [rewrite] Janis Excel Discussion (Misc queries) 0 July 25th 07 10:36 PM


All times are GMT +1. The time now is 07:30 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"