Excel - Buscar registros en una tabla, con VBA, a partir de un criterio

For Each Celda In Sheets(«Datos»).Range(«$A$6:$A$232»)

If Celda = Pais Then

...

End If

Next Celda

For Each Celda In Tabla ([NombreTabla]).Range([NombreColumna])

If Celda = Pais Then

...

End If

Next Celda

Sub Macro3()

    Dim c As Range

    For Each c In ActiveCell.CurrentRegion.Cells

        MsgBox c.Value

    Next

End Sub

Sheets ("Hoja1").Select

Cells(2, 3).Select

For i = 0 To Range("Tabla").Rows.Count

    If ActiveCell.Offset(i, 0).Value = sNom Then

        MsgBox "Duplicado en fila " & i

    End If

Next i

Dim c As Range

C = (A2:A8) ' las celdas de la columna A desde la fila  2 a la  8 

For Each c In ActiveCell.CurrentRegion.Cells

    MsgBox c.Value

Next

ult = Cells(Rows.Count, 1).End(xlUp).Row

Range("A2:A" & ult)