Format date on report
Sub RigidFormattingProcedure() ActiveSheet.Range("A2").NumberFormat = "mmm-yy" End Sub