my-first-excel-vba.vba

Private Sub CommandButton1_Click()

Dim cpfs As Range
Set cpfs = ThisWorkbook.Worksheets("pdf").Range("B3:B169")

Dim cpf As Range

Dim new_cpfs As Range
Set new_cpfs = ThisWorkbook.Worksheets("09").Range("C2:C194")

Dim new_cpf As Range

Dim j As Integer
j = 2

For Each new_cpf In new_cpfs.Cells
    For Each cpf In cpfs.Cells

        If new_cpf.Value = cpf.Value Then
            ActiveWorkbook.Worksheets("09").Cells(j, 24).Value = "x"
        End If
    Next cpf
    j = j + 1
Next new_cpf

End Sub