Hi, J. If you want this to occur automatically, and supposing you type these
values into column A, then you can right-click the worksheet tab and hit
View Code. Then paste this code into the code window that appears at right:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Target(1).Value = Left(Target(1), 2) & "-" & Mid(Target(1), 3, 2) & "-"
& Right(Target(1), 2)
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.