Here is how you would loop though every row:

Sub Macro1()

Dim lastrow As Long
Dim currentrow As Long

lastrow = Worksheets(1).UsedRange.Row + _
Worksheets(1).UsedRange.Rows.Count

For currentrow = 1 To lastrow Step 1
If Worksheets(1).Range("J" & currentrow).Value = "RT" Then
Worksheets(1).Range("BG" & currentrow).Value = "RT"
End If
Next currentrow
End Sub

Hope this helps,

Kris

-----Original Message-----
I have the following Visual Basic Sub in an excel 2000
worksheet:
If Worksheets(1).Range("J2").Value = "RT" Then Worksheets
(1).Range("BG2").Value = "RT"

This works fine. What I want to do is for this to work
for every cell in column "J" and every cell in
column "BG"
Not just J2 and BG2. I have thousands of records so it
is
not possible to type this expression for each cell
number. Any advice would be awesome and appreciated.
thanks so much,
matthew.


.