Sub Macro2() Columns("B:B").Select Selection.Find(What:="*,*", After:=ActiveCell, LookIn:=xlValues, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate Selection.FindNext(After:=ActiveCell).Activate End Sub