******Drop-Down Menu******
Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("Show_Row5").Value = "Show" Then
        Rows("5:5").EntireRow.Hidden = False
    ElseIf Range("Show_Row5").Value = "Hide" Then
        Rows("5:5").EntireRow.Hidden = True

    End If
End Sub


******Buttons******

Sub Hide()

Rows("5:5").EntireRow.Hidden = True
End Sub

Sub Show()

Rows("5:5").EntireRow.Hidden = False

End Sub