Sub Font_Change()
Select Case Range("AU5").Value
Case 1
Range("E13:W13").NumberFormat = "$#,##0.00"
Case 2
Range("E13:W13").NumberFormat = "0.00%"
Case Else
'currently nothing here - so values other than 1 or 2 do not change the existing format
End Select
End Sub