Hello
I am attempting to create a range defined by a value input into a message box to convert a string of "General" cells to "Number" cells.
Currently I have this:
Code
Sub ConvertTextToNumber()
Set Rng = Application.Selection
Title = "MSG Box"
Set Rng = Application.InputBox("Input Range", Title, Rng.Address, Type:=8)
Do
Set cell = Rng.Find("General", LookIn:=xlValues)
If Not cell Is Nothing Then
cell.Values
End If
Loop While Not cell Is Nothing
End Sub
Display More
Which does not seem to work. Any ideas? Ultimately I want the range input into the message box (i.e. C2:D6) to be converted to number formatting.