HI, Im using the following code :

Dim myrange As Range

Set myrange = Range("D1")

For Each Cell In Range("D3:AJ19")

If Cell.Offset(0, -2) = myrange Then
For c = 0 To 7
Cell.Offset(0, c).Value = [E21]
Next c
End If
If c = 10 Then
End If
Next

I would like to continue running the same code through the entire range
of D1:AJ1. When I try to add it in to "myrange" I keep getting an
error.

Thanks


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