Range help

H

hotherps

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
 
T

Tom Ogilvy

Dim myrange As Range
Dim Cell as Range, Cell1 as Range
Dim c as Long
Set myrange = Range("D1:AJ1")

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

for each cell1 in MyRange
If Cell.Offset(0, -2) = Cell1 Then
For c = 0 To 7
Cell.Offset(0, c).Value = [E21]
Next c
Exit For
End If
Next cell1
If c = 10 Then
End If
Next

Might be what you are asking.
 
Top