And another method.

For Each rngF In rngFilter
If rngF.EntireRow.Hidden = False Then
'' Do your thing.
End If
Next rngF

HTH
Paul
--------------------------------------------------------------------------------------------------------------
Be advised to back up your WorkBook before attempting to make changes.
--------------------------------------------------------------------------------------------------------------

Thereafter I want to automatically run down this column
and do specific actions for each value in this column. I
am able to do everything I want EXCEPT run down this
column.