Sub SampleMacro9()
    MsgBox "This is a sample code for Category 9."
End Sub