Macro to insert a space

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Lame Dame - 23 Mar 2006 17:21 GMT

Hi

I need a macro to insert a space every 4 characters e.g.

It will change the contents of :

CY11A01

To

CY11 A01

Any ideas??

Reply to this Message

Gary Keramidas - 23 Mar 2006 17:42 GMT

do you only need to add a space after the first 4 characters?

Sub test2()
slen = Len(Range("a1"))

Range("b1").Value = Left(Range("a1"), 4) & " " & Right(Range("a1"), slen - 4)

End Sub

Signature

Gary

> Hi
>
[quoted text clipped - 9 lines]
>
> Any ideas??

Reply to this Message

Lame Dame - 23 Mar 2006 18:37 GMT

thanks

Reply to this Message