Még egy módszer: ThisWorkbook laphoz:
Private Sub Workbook_Open()
Dim leir As String, leir1 As String
leir = "Két egész számot összegez"
leir1 = "Két egész számot összeszoroz"
Application.MacroOptions macro:="összead", Description:=leir
Application.MacroOptions macro:="szoroz", Description:=leir1
End Sub
Modulba:
Function összead(a As Long, b As Long)
összead = a + b
End Function
Function szoroz(a As Long, b As Long)
szoroz = a * b
End Function