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 a
workbook opens. Ranges should all be the same. Anyone knows a bette
way of doing this??? I keep getting a "1004" error.


Larry
VBA Amateu

--
Message posted from http://www.ExcelForum.com