Just a guess:

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

What sheet?? A 1004 error would be raised if Excel couldn't figure it out
either.

HTH,
--
George Nicholson

Remove 'Junk' from return address.


"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/