CodeLink
http://yourwebsite.com/sample7
CodeContent
Sub SampleMacro7() MsgBox "This is a sample code for Category 7." End Sub