I'm reducing a 6000 row data set by four fold. I wanted to use the following
macro to delete every three rows, but the String function doesn't seem to
work in a macro to generate a valid row range. Suggestions?

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 1/22/2006 by Bob
'
Row_start = 12
Row_end = Row_start + 2
Do While Row_start < 1600
RS = Str(Row_start)
RE = Str(Row_end)
Address = RS & ":" & RE
Rows(Address).Select
Selection.Delete
Row_start = Row_start + 1
Row_end = Row_end + 1
Loop

End Sub