Convert Macro .....

[rvillanueva]

Hi i record this macro:

Range("B90").Select
ActiveCell.FormulaR1C1 = "=LEN(RC[-1])"
Range("B91").Select
ActiveCell.FormulaR1C1 = "=MID(R[-1]C[-1],1,RC[-1]-4)"
Range("B92").Select
ActiveCell.FormulaR1C1 = "=LEN(R[-1]C)"
Range("B93").Select
ActiveCell.FormulaR1C1 = "=MID(R[-2]C,22-8,22)"
Range("B93").Select

But i want to convert using Tags, like this
FileN = Worksheets("Datos").Range("A1").Value
Long = "=LEN(FileN)"
A = "=MID(FileN,1,Long - 4)
Long = "=LEN(A)"
FileN = "=MID (FileN,Long-8,Long)

How can i do ??

Thanks

[Tom Ogilvy]

FileN = Worksheets("Datos").Range("A1").Value
Long = LEN(FileN)
A = MID(FileN,1,Long - 4)
Long = LEN(A)
FileN = MID(FileN,Long-8,Long)

--
Regards,
Tom Ogilvy


"rvillanueva" wrote:

>
> Hi i record this macro:
>
> Range("B90").Select
> ActiveCell.FormulaR1C1 = "=LEN(RC[-1])"
> Range("B91").Select
> ActiveCell.FormulaR1C1 = "=MID(R[-1]C[-1],1,RC[-1]-4)"
> Range("B92").Select
> ActiveCell.FormulaR1C1 = "=LEN(R[-1]C)"
> Range("B93").Select
> ActiveCell.FormulaR1C1 = "=MID(R[-2]C,22-8,22)"
> Range("B93").Select
>
> But i want to convert using Tags, like this
> FileN = Worksheets("Datos").Range("A1").Value
> Long = "=LEN(FileN)"
> A = "=MID(FileN,1,Long - 4)
> Long = "=LEN(A)"
> FileN = "=MID (FileN,Long-8,Long)
>
> How can i do ??
>
> Thanks
>
>
> --
> rvillanueva
> ------------------------------------------------------------------------
> rvillanueva's Profile: http://www.excelforum.com/member.php...o&userid=28814
> View this thread: http://www.excelforum.com/showthread...hreadid=538149
>
>

[rvillanueva]

Works fine !!!