CodeLink
http://yourwebsite.com/sample9
CodeContent
Sub SampleMacro9() MsgBox "This is a sample code for Category 9." End Sub