fiza
04-05-2010, 09:45 AM
Hi anyone!
I have rows hidden in my sheet with the range A26:A35.
I need your kind help to modify the following code so that when the macro button is clicked, it would ask me how many rows I want to unhide and then when I write the number of rows in the message box it unhides the number of rows for me.
The following code actually inserts rows. But I want it to be modified so that it unhides hidden rows.
Any help would be kindly appreciated.
I hope I had have made my question clear.
Thanks for taking your valuable time to read this thread.
Sub InsertRow()
Dim Rng, n As Long
Application.ScreenUpdating = False
Rng = InputBox("Enter number of rows required.")
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(Rng - 1, 0)).Select
Selection.EntireRow.Insert
End Sub
I have rows hidden in my sheet with the range A26:A35.
I need your kind help to modify the following code so that when the macro button is clicked, it would ask me how many rows I want to unhide and then when I write the number of rows in the message box it unhides the number of rows for me.
The following code actually inserts rows. But I want it to be modified so that it unhides hidden rows.
Any help would be kindly appreciated.
I hope I had have made my question clear.
Thanks for taking your valuable time to read this thread.
Sub InsertRow()
Dim Rng, n As Long
Application.ScreenUpdating = False
Rng = InputBox("Enter number of rows required.")
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(Rng - 1, 0)).Select
Selection.EntireRow.Insert
End Sub