-
Solved: Change text to numbers for different sheets and workbooks
Hi Experts,
I want my code below does the same in 45 sheets and 11 workbooks. (change text to numbers in a variable range)
[VBA]Dim rrGlobal As Range
Sub ChangeUPCtonumbers()
Set rrGlobal = Range("A:A")
Call ChangeUPCtonumbers1
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]
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules