Solved: Change text to numbers for different sheets and workbooks

[Bob Phillips]

[vba]
Dim rrGlobal As Range
Dim sh As Worksheet
For each wb In Workbooks
For Each sh In wb.Worksheets
Sub ChangeUPCtonumbers()
Set rrGlobal = sh.Range("A:A")
Call ChangeUPCtonumbers1
Next sh
Next wb
End Sub
[/vba]


__________________________________________
UK Cambridge XL Users Conference 29-30 Nov
http://www.exceluserconference.com/UKEUC.html