macro for parsing text

[[email protected]]

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

[Toppers]

Remove select statement


Rows(i).Replace What:=".........

"[email protected]" wrote:

> 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
>
>