Visual Basic - No funciona el Acceso Directo

Estoy aprendiendo y esta es mi macro:

Sub AprendiendoImportarArchivosTexto()
' Macro grabada el 28/09/2006 por Javier Salas
' Acceso directo: Ctrl+Mayús+J
Workbooks.OpenText _
Filename:="D:\JAVI\EXCELL\Trabajo\Enero.txt" _
, Origin:=xlWindows, _
StartRow:=4, _
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(8, 1), _
Array(20, 1), Array(26, 1), Array(40, 1), _
Array(49, 1))
Sheets("Enero").Move _
Before:=Workbooks("Libro2.xls").Sheets(1)
Range("A2").Select
Selection.EntireRow.Delete
Range("A1").Select
End Sub

Ahora, cuando la ejecuto con F5 y/o desde visual basic con el modo ejecutar, lo ejecuta a la perfección; sin embargo, cuando lo ejecuto con el Acceso Directo no sucede lo mismo. Alguien me puede explicar por qué no ejecuta con el Acceso Directo y por qué sí de otra forma?. Tengo Office 2003 si eso ayuda en algo.

eso es visual basic para aplicaciones, pregunta en ese foro