How do I get rid of the line numbers

[azizrasul]

I have inherited a 2007 workbook where the code has line numbers. How do I get rid of them? Here's a snippet of the code.

Private Sub Workbook_Open()

    Dim bDirty As Boolean
    Dim s2009Dataworkbook As String

    'Set Global Variable
10  nReportingYear = Year(Now)
20  Select Case nReportingYear

        Case 2010
            ' Include data
30          bIncludedY2009 = True
40          bIncludedY2008 = True
50          s2009Dataworkbook = DSI_2009_DataTable_FileName
60      Case 2011
70          bIncludedY2009 = True
80          bIncludedY2008 = False
90          s2009Dataworkbook = DSI_2009_DataTable_FileName
100     Case Else
110         bIncludedY2009 = False
120         bIncludedY2008 = False
130         s2009Dataworkbook = "No Longer Required; data in Dimensions"
140 End Select

 

[mikerickson]

Post #5 of http://www.mrexcel.com/forum/showthread.php?t=576449&highlight=codemodule
has a remove line numbers routine.

 

[mikerickson]

Or,
Copy paste the code into a worksheet and use text to columns.

 

[azizrasul]

Thanks Mike.

 

[azizrasul]

Mike, I don't have a userform, so how would I amend the code to remove the line numbers?

 

[azizrasul]

Just curious to know why does the code not error with line numbers in?