Sub FixTheTime()
With [f:f]
.Value = .Value
.NumberFormat = "[h]:mm"
End With
End Sub
Sub TextToValue()
If Application.Calculation = xlCalculationAutomatic Then
Let CalcFlag = True
With Application
.Calculation = xlCalculationManual
End With
End If
With Selection
.NumberFormat = "General"
End With
For Each cell In Selection
TV = cell.Value
If cell.Value <> "" Then cell.Value = Trim(TV)
Next cell
If CalcFlag = True Then
With Application
.Calculation = xlCalculationAutomatic
End With
End If
End Sub
ASKER
Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.
TRUSTED BY