Macro to delete rows

[kambodza]

How to create macro to delete rows,when row size is 9 19,5 17,25
Can someone create that for me.

 

[Stiuart_W]

Try this

Sub DeleteRows()
    Dim LastRowNumber As Integer
    LastRowNumber = 10
    For i = LastRowNumber To 1 Step -1
        RowHeight = Rows(i).Height
        If (RowHeight = 9 Or RowHeight = 19.5 Or RowHeight = 17.25) Then
            Rows(i).Delete
        End If
    Next i
End Sub

Cange LastRowNumber for the nuber of ows you ave

 

[kambodza]

OK,Thanks a lot