[vba]

Dim rrGlobal As Range
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
Sub ChangeUPCtonumbers()
Set rrGlobal = sh.Range("A:A")
Call ChangeUPCtonumbers1
Next sh
End Sub


Sub ChangeUPCtonumbers1()
Dim r As Range

Count = 0
For Each r In rrGlobal
If Application.IsText(r.Value) Then
If IsNumeric(r.Value) Then
r.Value = 1# * r.Value
r.NumberFormat = "General"
Count = Count + 1
End If
End If
Next
MsgBox (Count & " cells changed")
End Sub
[/vba]