Hello,

This is my VBA procedure.
I wanted to know whether if was possible to subsitute "(Range("a5"))" with
"a" in order to have a generic and moving range?
Dim a As Long
Dim myRng As Range
x = Mid(Application.Trim(Range("a5")), 12, 20)
For a = 7 To 100
If a Mod 2 = 0 Then
If Cells(a, 1).Value 0 Then
Cells(a, 2).Value = x
Else
Cells(a, 2).Value = 0
End If
End If
Next a



--
Regards,
Jeff