Inserting columns to an existing sheet but alphabetically

HI,
I need to insert a 2 new Columns into an existing worksheet but they have to fit in the correct place alphabetically.
I've got an input box that get the new Column's Title, but at the moment I can only add it to the next blank column at the end.
I need code that will take the input box text and check it against all the colums then insert a new colum in the right aphabetical place.

Here's the code I'm using which adds two columns at the end and formats them correctly.

Sub Add_LB()
'Find Last Column
Dim LastCol As Integer
    With ActiveSheet
        LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
    End With
'Add Collumn Title
Dim myValue As Variant
myValue = InputBox("Enter title of new Learning Burst")
If myValue = "" Then GoTo Skip:
Cells(1, LastCol + 1).Select
ActiveCell.FormulaR1C1 = myValue
    
    With ActiveCell
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 90
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Font.Bold = True
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.499984740745262
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    
' Add Follow Up Text in next column
Cells(1, LastCol + 2).Select
ActiveCell.FormulaR1C1 = "Follow Up"
Cells(1, LastCol + 2).Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 90
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
        Selection.Font.Bold = False
    End With
Skip:
End Sub

Originally Posted by p24leclerc

why don't you sort all of your columns after having inserted your new columns? I previously used that in a macro and it works.

Thanks for replying. I thought of that but I couldn't work out how to do it :-( Any ideas Please?

I'll be able to get the workbook for you to look at on Tuesday 29th Thanks.

Thanks that's a good point; even if I did sort them they would sort wrongly as you say.
I need to take the title from the input box, check where it would fit alphabetically, insert it, insert another column directly after that called "Follow Up".
so it would look something like this to start off with:

A Title Follow UP B Title Follow UP D Title Follow Up

Imputing "C Title" as the new column title would insert it after "B Title Follow Up" to give:

A Title Follow UP B Title Follow UP C Title Follow Up D Title Follow Up

I need some VBA code that checks the New Column Title against all the existing Column Titles and inserts the two new columns in the correct place.

I hope that makes sense?

I really appreciate your help.

Cheers, that's a good idea. I'll give it a try on Tuesday, when I'm back in my office.

Hi, Sorry for the delay. Here's my workbook so far.

Thanks very much! That did the trick. I see what you mean about having sub headings. I need to alter a couple of formulas on the second sheet but that's easy. Thanks again.