Inserting blank rows between data, but ignoring hidden rows

[DPARDY]

Good morning forum, I am tiring to insert blank rows between a range of rows, but need it to skip over hidden rows. Below is what I have started with and the inserting is working fine. Thanks in advance.

Sub Insert_BlankRows()


Dim MyRange As Range
Dim iCounter As Long
Set MyRange = Range("A2:A175")
For iCounter = MyRange.Rows.Count To 2 Step -1
MyRange.Rows(iCounter).EntireRow.Insert
Next iCounter


End Sub

 

[Fluff]

Is this what you're after?

Sub Insert_BlankRows()


Dim MyRange As Range
Dim iCounter As Long
Set MyRange = Range("A2:A34")
For iCounter = MyRange.Rows.Count To 2 Step -1
    If MyRange.Rows(iCounter).Hidden = False Then MyRange.Rows(iCounter).EntireRow.Insert
Next iCounter


End Sub

 

[DPARDY]

That worked like a charm, thank you Fluff

 

[Fluff]

Glad to help & thanks for the feedback