Hiding a row

[TY1]

I have numbers listed in column A. They are listed 1 through 10 with 1 being in A-1 and 2 being in A-2 all the way through 10 with 10 being in A-10. If I hide row 5, I want the column to auto populate so column A will now have the numbers listed 1-9. Can anyone help?

 

[agihcam]

Hi -

Welcome to the board.

semi-auto. hide rows then run the code;

Sub test()
Dim i As Long
i = Range("a" & Rows.Count).End(xlUp).Row
Range("a1:a" & i).SpecialCells(xlCellTypeVisible).Select
n = 1
For Each c In Selection
    c.Value = n
    n = n + 1
Next
End Sub

 

[TY1]

You are the Man! Worked like a champ.

Thanks a ton.

TY