Como esconder folhas que possuem célula u1 = x

Question

Se eu quiser ocultar abas que tenham u1 = x, como eu faria isso? Eu tenho isso, mas é apenas esconder todas as páginas em vez de apenas aqueles que têm u1 = x

Sub Hide_Sheets_Containing()
  Dim wks As Worksheet

  For Each wks In ActiveWorkbook.Worksheets
    If Not (wks.Range("u1") = "X") Then
      wks.Visible = xlSheetHidden
    End If
  Next
  Set wks = Nothing
End Sub