You should always mention the exact error meessage. 1004 tells us nothing.

It may be that the clipboard is getting cleared out. You don't have to even
used copy/paste and you can skip all the jumping around selecting sheets and
cells. You do not have to select anything. For example:

Sheet2.Range("D7,D9,D15,D17,D19,D21,D23,D25,D27,D2 9,D31,D33").Value _
= Sheet2.Range("A1").Value

would do the first sheet.

If Range("D7").Value < "" Then

This is perplexing. What does less that an empty cell mean?

--
Jim Rech
Excel MVP

"nrage21 " wrote in message
...
| Sub Copy_Paste()
| If Range("D7").Value < "" Then
| Sheets("Sheet1").Range("A1").Select
| Selection.Copy
| Sheets("Sheet2").Select
| Range("D7,D9,D15,D17,D19,D21,D23,D25,D27,D29,D31,D 33").Select
| Selection.pastespecial Paste:=xlPasteValues, Operation:=xlNone,
| SkipBlanks _
| :=False, Transpose:=False
| Application.CutCopyMode = False
| Selection.NumberFormat = "mm/dd/yyyy"
| Else
| End If
| End Sub
|
| I need to run this program from sheet 2 to sheet 10 when as soon as
| workbook opens. Ranges should all be the same. Anyone knows a better
| way of doing this??? I keep getting a "1004" error.
|
|
| Larry
| VBA Amateur
|
|
| ---
| Message posted from http://www.ExcelForum.com/
|