Delete every alternate row

**vamshi57** · 03-21-2010, 10:47 AM

Hi ,

I want to know how I delete every alternate blank row in my work sheet . I guess VB script should help me .Thank you

**mrice** · 03-21-2010, 11:05 AM

Something like this?

Sub DeleteAlternateRows()
StartRow = 14
EndRow = 108
Interval = 2
For N = EndRow To StartRow Step -Interval
    Rows(N).Delete
Next N
End Sub

**vamshi57** · 03-21-2010, 11:50 AM

I worked fine . Thank you so much . I'm verymuch interested in learning VBA . Can you guide me to some free links where I can start learning from basics .

**mrice** · 03-21-2010, 03:54 PM

Having started learning VBA a long time ago, I'm not very familiar with current resources for starting. However, I would recommend visiting forums such as this and seeing what folk are asking and the responses they are receiving. This is a bit unstructured but will give you an insight into all sorts of VBA solutions.

Good luck