Unhiding Row from a range of hidden rows

[wenxi]

Hi

Let's say that i have Row 1-10 hidden and i want to unhide row 5 while keeping the rest hidden. Any faster method to achive this instead of unhidding 1-10 then hide 1-4 and 6-10 again.

 

[tweedle]

Should be able to do the following syntax

ActiveSheet.Rows(5).EntireRow.Hidden = False

 

[wenxi]

Should be able to do the following syntax

ActiveSheet.Rows(5).EntireRow.Hidden = False

Thanks.
is there a popup to let user input the row number to be unhidden instead of going into the code and edit?

 

[Rick Rothstein]

Give this macro a try...

Sub UnhideRow()
  Dim RowNum As String
  RowNum = InputBox("What row number do you want to unhide?")
  If Len(RowNum) = 0 Then
    ' Nothing was entered... do nothing
  ElseIf RowNum Like "*[!0-9]*" Or RowNum = "0" Then
    MsgBox "Invalid row number!", vbCritical
  Else
    Rows(RowNum).Hidden = False
  End If
End Sub

 

[wenxi]

Give this macro a try...

Sub UnhideRow()
  Dim RowNum As String
  RowNum = InputBox("What row number do you want to unhide?")
  If Len(RowNum) = 0 Then
    ' Nothing was entered... do nothing
  ElseIf RowNum Like "*[!0-9]*" Or RowNum = "0" Then
    MsgBox "Invalid row number!", vbCritical
  Else
    Rows(RowNum).Hidden = False
  End If
End Sub

Hi RICK,

It works.
THANKS ALOT.