Subscript out of range error 9

[Rodney Roe]

This is a wierd issue that i'm having. When I run the code without having vba open I get the error 9 message, but when I open vba and run the code it runs just fine. Here is the code

Public Sub preformat()
'Application.ScreenUpdating = False
    Workbooks.Add
    Do
        If InStr(1, ActiveWorkbook.Name, "Book") > 0 Then Exit Do
        ActiveWindow.ActivateNext
    Loop
    Columns("B:B").NumberFormat = "@"
    Columns("D:E").NumberFormat = "0.000"
    Columns("H:J").HorizontalAlignment = xlCenter
    Range("A1").Select
    'This procedure sets up the workbook procedure
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).codemodule
    'Add the empty procedure
    .InsertLines 1, "Private Sub Worksheet_SelectionChange(ByVal target As Range)"
    .InsertLines 2, "If Target.Column < 8 Or Target.Column > 10 then Exit Sub"
    .InsertLines 3, "If ActiveCell = """" Then"
    .InsertLines 4, vbTab & "ActiveCell = ""X"""
    .InsertLines 5, "ElseIf ActiveCell = ""X"" Then"
    .InsertLines 6, vbTab & "ActiveCell = """
    .InsertLines 7, "End If"
    .InsertLines 8, "End Sub"
End With
'Application.ScreenUpdating = True
End Sub
 

it throws the code at this line

With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).codemodule
 

any suggestions?
thx,
Rodney

[Killer42]

I'd recommend you copy and paste this question into the Access / VBA forum where you'll find a lot more VBA expertise.