Sub SampleMacro6()
    MsgBox "This is a sample code for Category 6."
End Sub