Hỏi cách tạo Add-in khi Right-Click (1 người xem)

[chaoban888]

Hỏi cách tạo Add-in, Right-Click để sử dụng

Em có code

Sub DOICHU()
'
' DOICHU Macro
' Macro recorded 7/19/2010 by May3
'
' Keyboard Shortcut: Ctrl+i
'
Dim Vungchon As Range
Dim Dau, Cuoi As String
For Each Vungchon In Selection
Dau = Left(Vungchon, 1)
Cuoi = Mid(Vungchon, 2, Len(Vungchon) - 1)
Vungchon.Value = UCase(Dau) & Cuoi
Next Vungchon

End Sub

Làm sao để tạo Add-in, khi chạy file *.xla sẽ ra như trong hình ạ ?

Cảm ơn các bác