Finally done with Fluid Dynamics so I can revisit. Try this:

Sub Convert()

Range("A1").Select
For X = 1 To 1
Dim redRng As Range

Set redRng = Range("A1", Range("A100").End(xlUp))
For Each cell In redRng

If cell.Value < "" Then
ActiveCell.Offset(0, 2).Select
ActiveCell.FormulaR1C1 = "=MID(RC[-2],FIND(""#"",RC[-2])+1,4)"
ActiveCell.Offset(1, -2).Select
End If

Next cell

Next X
End Sub

Regards,
Ryan---


--
RyGuy


"QuietMan" wrote:

Thanks,

I have to do 3 checks also when looping through the data
what do you think is the best way to lop through (fastest)
--
Helping Is always a good thing


"ryguy7272" wrote:

Simple solution to get you started; no code.
=MID(A7,FIND("#",A7)+1,4)

I'll try to come up with a solution that loops through the data later, when
I have more time.

Regards,
Ryan---

--
RyGuy


"QuietMan" wrote:

Here is what I'm attempting to do...
Check a large range of cells for the text "#"
Once I find a cell that has the "#" text, I need to take the 4 characters
right of the "#" text and place it into a different column

Thanks
--
Helping Is always a good thing