Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Range("G6").NumberFormat = "General"

Dim a, b, c, d, e, f, g, h As String
a = "0.00"
b = "0.00;[Red]0.00"
c = "0.00_ ;-0.00"
d = "0.00_ ;[Red]-0.00"
e = "#,##0.00"
f = "#,##0.00;[Red]#,##0.00"
g = "#,##0.00_ ;-#,##0.00"
h = "#,##0.00_ ;[Red]-#,##0.00"



For u =  3  To  525 
For v =  3  To  34 
x = Cells(u, v).NumberFormat
If ((x = a) Or (x = b) Or (x = c) Or (x = d) Or (x = e) Or (x = f) Or (x = g) Or (x = h)) Then
Cells(u, v).NumberFormat = "General"
End If


Next
Next

End Sub