![]() |
|
#2
|
||||
|
||||
|
Hi g48dd,
Try something along the lines of: Code:
Sub Macro3()
Dim Source As Worksheet, Target As Worksheet
Set Source = Sheets("Sheet1")
Set Target = Sheets("Sheet2")
With Target
.Range("A1").Value = Source.Range("A2").Value
.Range("C6").Value = Source.Range("G13").Value
.Range("D6").Value = Source.Range("G11").Value
.Range("E6").Value = Source.Range("H13").Value
.Range("F6").Value = Source.Range("H11").Value
End With
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
Getting a copy of all emails sent
|
tonywatsonmail | Outlook | 2 | 06-13-2011 08:21 AM |
| Copy from one ppt to another | uhlersa | PowerPoint | 1 | 04-23-2011 05:05 PM |
Copy to Word
|
markg2 | Excel | 2 | 05-01-2010 08:04 AM |
| Office Clipboard and Outlook | runiuksp | Outlook | 0 | 04-29-2010 07:31 AM |
| copy a file which does not have copy option | jkind | Word | 0 | 01-17-2010 09:25 AM |