VS2005用宏自动生成代码注释，但是却无法给这个宏添加快捷键。该如何处理

VS2005用宏自动生成代码注释，但是却无法给这个宏添加快捷键。
题目写得真晦涩，我详细说下。
我想做一个可以自动生成函数注释的宏，于是在VS2005->工具->宏->宏资源管理器。
在打开的资源管理器的MyMacros下添加了一个新项，我给这一项命名为“AddFunNote”项里面填写的代码内容如下：
Option Strict Off
Option Explicit Off
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports System.Diagnostics


Public Module RecordingModule

  Sub Macro1()
  'Dim doc As Document = DTE.ActiveDocument
  'Dim docText As TextDocument = doc.Object
  'Dim selText As TextSelection = docText.Selection()
  'selText.StartOfDocument(False)
  'Dim str As String = " /****************************** " + vbCrLf & amp & " * 取得数据库中关于数据表的信息" + vbCrLf + "* 作者:" + vbCrLf + "* 日期:" + System.DateTime.Now.ToString() + vbCrLf + "******************************/ "
  'selText.Insert(Str)
  Dim DocSel As EnvDTE.TextSelection
  DocSel = DTE.ActiveDocument.Selection
  DocSel.NewLine()
  DocSel.Text = "/*******************************************************************"
  DocSel.NewLine()
  DocSel.Text = "/* 函数名称: "
  DocSel.NewLine()
  DocSel.Text = "/* 功 能: "
  DocSel.NewLine()
  DocSel.Text = "/* 参 数: "
  DocSel.NewLine()
  DocSel.Text = "/* 返 回 值: "
  DocSel.NewLine()
  DocSel.Text = "/* 作 者: "
  DocSel.NewLine()
  DocSel.Text = "/* 电子邮箱: "
  DocSel.NewLine()
  DocSel.Text = "/* 创建日期: " + System.DateTime.Now.ToLongDateString()
  DocSel.NewLine()
  DocSel.Text = "*******************************************************************/"

  End Sub
End Module
通过F5运行后，可以在源代码处添加注释。
下一步我想给这个宏做个快捷键，但是在工具->选项->键盘，却找不到“addFunNote”这一项，请问各位，我该怎么做才能让这个宏调用有快捷键。。
PS：位置如果放得不对，还望版主帮转移。。


------解决方案--------------------
我这个属于code snippet， vs里有快捷键调用 Snippets manager， ctrl+k， 或者在tools菜单下找。