Your question is not clear on whether you want to locate strings with
exactly 5 dashes in it (with numbers on each side of each dash) or whether
you want to locate strings containing any number of dashes (again, with
numbers on each side)... I assumed the latter. Give this code a try and see
if it does what you want...

Sub CopyDashedStrings()
Dim Cell As Range
For Each Cell In Range("A1:E100")
If Cell.Value Like "*#-#*" Then Cell.Offset(0, 6).Value = Cell.Value
Next
End Sub

--
Rick (MVP - Excel)



"ytayta555" wrote in message
...
Hi , and a good day everybody

Please to help me with this problem :

I have in a range (f or example : A1:E100 ),
in different cells , numbers like in the follow format /(string)
like :

12-16-18-25-33-43 ;

The other cell contain another values , like :
3 , - , etc .
I need a code to loop through my range cell
by cell , and , IF the value of cell is in string mode like :

17-28-34-36-39-42 ( can be different numbers , but with
the sign - beetwen them )

to copy them in another range , for example G1 ,
useing Offset function , like : Offset ( 1, 0) .

A lot of thanks in advance .