Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$AU$5" Then Exit Sub
Select Case Target.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