title: Check if there is a "1" in column, if there is, then filter
body: <p>I have this code that allows me to search for a string and if it's there, then filter for that string but if it's not there then don't do anything.</p>
  
  <pre><code>Dim Findvalue As String
  Dim Rng As Range
  Findvalue = "1"
  
   With ws.Range("K:K")
        Set Rng = .Find(What:=Findvalue, _
                    After:=.Cells(.Cells.Count), _
                    LookIn:=xlValues, _
                    LookAt:=xlWhole, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlNext, _
                    MatchCase:=False)
               If Not Rng Is Nothing Then
                    ws.Range("K4").AutoFilter _
                    Field:=11, _
                    Criteria1:="1"
  
               Else
                  Exit Sub
               End If
   End With
  </code></pre>
  
  <p>This works if the value is a letter but doesn't work when it's a number.</p>