Sub Test() Const MyMacroName As String = "MyTestMacro" With ActiveDocument .Properties(MyMacroName, 1) = "My String 1" ' String .Properties(MyMacroName, 2) = 1 ' Integer .Properties(MyMacroName, 3) = Atn(1) * 4 ' Double MsgBox .Properties(MyMacroName, 1) MsgBox .Properties(MyMacroName, 2) MsgBox .Properties(MyMacroName, 3) End WithEnd Sub