Hi
I need help! Any assistance helpful
I am trying to vba code in xl 97 a simple way to move through two columns "C" example below and "D" and if the active cell value is equal to a social security number then move the selection row , col c or col d over two columns to "E"
any suggestions

Dim Rng As Rang
FindString = "-" 'shortcut to 000-000-00
Set Rng = Range("c:c").Find(What:=FindString, LookAt:=xlPart
While Not (Rng Is Nothing
Range(ActiveCell, ActiveCell.End(xlToRight)).Selec
Set Rng = Range("c" & Rng.Row + 1 & ":c" & Rows.Count)
.Find(What:=FindString, LookAt:=xlPart
Wend