CodeLink
http://yourwebsite.com/sample6
CodeContent
Sub SampleMacro6() MsgBox "This is a sample code for Category 6." End Sub