Excel VisualBasic Script

Sub RigidFormattingProcedure() 
    ActiveSheet.Range("A2").NumberFormat = "mmm-yy" 
End Sub