Hi,

Am Fri, 10 May 2013 14:58:52 +0100 schrieb woodworker11:

Large spreedsheet that I want to save my start line. step down 1 line
and delete 29 line. Step down 1 line and delete 29 lines. Basicaly I
want to save every 30th line. Continue this loop until encounter blank
line.

you want to save line 30, 60, 90 etc.?
then try:

Sub Test()
Dim i As Long
Dim LRow As Long

LRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = LRow To 2 Step -1
If i Mod 30 < 0 Then
Rows(i).Delete
End If
Next
End Sub


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2