Here's the code:
Expand|Select|Wrap|Line Numbers
- Sub Button21_Click()
- If Range("H5:H9").NumberFormat = "General" And Range("I5:I9").NumberFormat = "0.00%" Then Range("H5:I9").SelectSelection.NumberFormat = ";;;"
- Else: If Range("H5:I9").NumberFormat = ";;;" Then Range("H5:I9").Select
- Selection.NumberFormat = "General"
- Range("I5:I9").Select
- Selection.NumberFormat = "0.00%"
- End Sub
What's wrong? It's driving me nuts!