Require faster Macro Code

Hi Formum,

I am pretty new to this Macro code stuff. I have a Macro code for a command button on the worksheet(seen below) that hide rows depending on a certain condition. The code works fine, but only if you have a couple of rows, I have 10003 rows it must look through and then hide the relevant rows. Now this will take some time to go thru all these rows and then hide the relevant ones. Is the a code that wil work faster?

Thank you for the answer in advance.

Sub Hide()
 Sheets("Unpaid Expenses").Select
 Range("s3:s10003").Select
 For Each Cell In Selection
 If Cell = "x" Then
 Range(Cell.Address).EntireRow.Hidden = True
 End If
 Next
 End Sub
 
Sub Show()
 Sheets("Unpaid Expenses").Select
 Range("s3:s10003").Select
 For Each Cell In Selection
 If Cell = "x" Then
 Range(Cell.Address).EntireRow.Hidden = False
 End If
 Next
 End Sub

One way would be

Sub Hide2()
Dim rngToHide as Range, oneCell as Range

With Sheets("Unpaid Expenses")
    set rngToHide = .Range("A1")

    For each oneCell in .Range("S3:S10003")
        If Cell.Text = "x" Then
            set rngToHide = Application.Union(rngToHide, oneCell)
        End If
    Next oneCell
    
    Application.Intersect(rngToHide, .Range("S:S").EntireRow.Hidden = True
End With
End Sub