Can someone correct macro below - Getting error : "Method 'Range' of
object_Global failed.



Sub label_to_number()
Dim addr As String
For Each Window In Windows
For Each Worksheet In Window.SelectedSheets
For Each cell In Application.Selection
addr = Worksheet.Name & "!" & cell.Address
If IsNumeric(Range(addr).Value) = True And Range(addr).Text < "" And
Range(addr).HasFormula = False Then
Range(addr) = Val(Range(addr))
End If
Next cell
Next Worksheet
Next Window
End Sub