How do I write a macro that would look for a string in an entire column

Question

how do I write a macro that would look for a string in an entire column. If the string is found, it will copy that entire row to a new sheet in that same file?
I want to look in an entire column lets say "C" for different strings of numbers like 246, 88, 68, 82246 etc... and copy them to a new sheet
Thanks

Answer 1

Hello Larbec,
Try this:
Option Explicit
Sub test()
    Dim myNumber As Integer
    Dim myNumbers() As Integer
    Dim i As Integer
    Dim c As Range
    Dim firstAddress As Variant
    myNumbers = Array(246, 88, 68, 82246)
    For i = 0 To UBound(myNumbers)
        myNumber = myNumbers(i)
        With ActiveSheet.Range("C:C")
            Set c = .Find(myNumber, LookIn:=xlValues)
            If Not c Is Nothing Then
                firstAddress = c.Address
                Do
    ' Copy c.value to OtherSheet here !!!!
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> firstAddress
            End If
        End With
    Next i
End Sub
Best regards George