hello, I am trying to modify a recorded macro that replaces an HTML tag

with "". The macro I recorded is below. I want to replace the 7 in the
Rows parameter with a counter, i, and use a For ..Next statement to
loop through each row in the worksheet. However, this is giving me an
app error. Does anyone know how I can do this? Thanks.

------ Original Macro -------
Sub CleanHTML()


' CleanHTML Macro
' Macro recorded 4/17/2006 by Mark Oium


Rows("7:7").Select
Selection.Replace What:="<*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False
End Sub


------ Modified Macro ------
Sub CleanHTML()


Dim i as Integer


'CleanHTML Macro
'Macro recorded 4/17/2006 by Mark Oium


For i = 1 To 1396
Rows("i:i").Select
Selection.Replace What:="<*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False
Next i
End Sub