keyboard shortcut link - macro ...help

[bluepenink]

hello

i have the following macro and i want to use Ctrl+q to call for my macro.

i used the following code but for some reason when i press ctrl+q it doesnt work.

Sub SaveAsSpecial()
    ' Keyboard Shortcut: Ctrl+q
    Dim Employee As String, rngDistrict As Range
    
    Employee = ActiveWorkbook.Sheets("Sales Executive Quota (2011)").Range("N5").Value
    
    If Employee = "" Then
        MsgBox "'Sales Executive Quota (2011)'!N5 is empty.", vbExclamation, "No SE"
    Else
        Set rngDistrict = Sheets("SE List").Range("C:C").Find(What:=Employee, _
                                                              LookIn:=xlValues, _
                                                              LookAt:=xlWhole, _
                                                              MatchCase:=False)
        If rngDistrict Is Nothing Then
            MsgBox "Cannot match """ & Employee & """ on sheet ""SE List""", _
                    vbExclamation, "No Employee Match"
        Else
            ActiveWorkbook.Saveas Employee & " - Bonus & Commission Calculator (" & rngDistrict.Offset(, 2).Value & _
                                  ") V.1.0 (" & Format(Date, "MMM D, YYYY") & ").xls", xlNormal
            MsgBox ActiveWorkbook.FullName, _
                    vbInformation, "Save Complete"
        End If
    End If
    
End Sub

thx u!

 

[repairman615]

Hello,

Have you set this shortcut in the macro options menu?

Alt + F8 to open the macro dialog
Choose Options
There you will be able to specify CTRL + Q

Does that solve the issue?

 

[bluepenink]

*DUH*

thxs alot buddy...worked like a charm....thxs again

 

[repairman615]

Your Welcome.

 

[shadow12345]

i got caught the same thing a couple of weeks ago.