Public Sub Macro1()
Application.ScreenUpdating = False
Set rngXVal = Range("F9:" & Range("F9").End(xlDown).Address)
If Not IsEmpty(ActiveSheet.Range("F9").Value) Then
rngXVal.Select
TXT2NUM "0"
End If
Set rngXVal = Range("I9:" & Range("I9").End(xlDown).Address)
If Not IsEmpty(ActiveSheet.Range("I9").Value) Then
rngXVal.Select
TXT2NUM "1"
End If
Set rngXVal = Range("J9:" & Range("J9").End(xlDown).Address)
If Not IsEmpty(ActiveSheet.Range("J9").Value) Then
rngXVal.Select
TXT2NUM "1"
End If
End Sub
Sub TXT2NUM(FMT)
'MsgBox "Execute conversion"
Dim R As Range
Dim var
Dim i&
Dim j&
Set R = Selection
var = R
For i& = 1 To UBound(var, 1)
For j& = 1 To UBound(var, 2)
If IsNumeric(var(i&, j&)) Then
var(i&, j&) = CDbl(var(i&, j&))
End If
Next j&
Next i&
R = var
If FMT = "1" Then
R.NumberFormat = "0.00"
Else
R.NumberFormat = "0"
End If
Range("A1").Select
Application.ScreenUpdating = True
End Sub