Sub SampleMacro7()
    MsgBox "This is a sample code for Category 7."
End Sub