I'm writing several macros for someone even more computer challenged than me. I get a .txt download from our website and have to format columns so that credit card info shows as the complete number and not as scientific notation. I used the recorder and made a few changes to make it more generic and code is below. Trouble is, if I step through the macro or run it (either by using the menu option or running from VBA editor) it works fine. When I use the keyboard shortcut, it opens the file and stops (no formatting, no column setups, etc.) I don't see any errors, it just stops. I'm not even sure where to start looking for the problem.

    Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\Rich\Desktop\room_list.txt", Origin:=437, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=True, _
        Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
        3, 1), Array(4, 1), Array(5, 3), Array(6, 3), Array(7, 1), Array(8, 2), Array(9, 2), Array(10 _
        , 1), Array(11, 1), Array(12, 9), Array(13, 1)), TrailingMinusNumbers:=True
    Rows("1:3").Select
    Selection.Delete Shift:=xlUp
    Cells.Select
    Cells.EntireColumn.AutoFit
    Rows("1:1").Select
    Selection.Font.Bold = True
    Range("A1:L1").Select

    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With

    Cells.Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Columns("G:G").Select
    Selection.ColumnWidth = 7
    Columns("I:I").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .WrapText = True
    End With
    Selection.ColumnWidth = 7
    Columns("H:H").Select
    Selection.ColumnWidth = 18

    With Selection
        .HorizontalAlignment = xlCenter
        .WrapText = True
    End With
    Columns("A:B").ColumnWidth = 21
    Columns("C:C").Select
    Selection.ColumnWidth = 20
    Columns("D:D").ColumnWidth = 11.5
    Columns("E:F").Select
    Selection.ColumnWidth = 8
    With Selection
        .HorizontalAlignment = xlCenter
        .WrapText = True
    End With
    
    Range("A1").Select
    Do
    ActiveCell.Offset(1, 0).Select
    Loop Until ActiveCell.Value = "Room Options Key:"
    
        Selection.Font.Bold = True
    ActiveCell.Offset(1, 0).Select
        Selection.Font.Bold = True
    ActiveCell.Offset(1, 0).Select
        Selection.Font.Bold = True
    ActiveCell.Offset(1, 0).Select
        Selection.Font.Bold = True
    ActiveCell.Offset(1, 0).Select
        Selection.Font.Bold = True
    ActiveCell.Offset(1, 0).Select
        Selection.Font.Bold = True
    ActiveCell.Offset(1, 0).Select
    
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.4)
        .RightMargin = Application.InchesToPoints(0.4)
        .TopMargin = Application.InchesToPoints(0.5)
        .BottomMargin = Application.InchesToPoints(0.5)
        .HeaderMargin = Application.InchesToPoints(0.51)
        .FooterMargin = Application.InchesToPoints(0.51)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = -3
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 2
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    
    MsgBox "OK to save the file and have a cigar"

End Sub