Howdy,

I am trying to change the ActiveCell catagory from Number to Text. Is there
a quick way to do this in VBA?

Thanks,
Will

--
Message posted via http://www.officekb.com

Try

ActiveCell.NumberFormat = "@"


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"willz99ta via OfficeKB.com" <u6624@uwe wrote in message
news:5d338f36895bd@uwe...
Howdy,

I am trying to change the ActiveCell catagory from Number to
Text. Is there
a quick way to do this in VBA?

Thanks,
Will

--
Message posted via http://www.officekb.com

Nope it's still not working. Here is the code I am using right now:

<code

Sub ShortenByTwo()

Do Until IsEmpty(ActiveCell)
If Mid(ActiveCell.Value, 1, 1) Like "[A-Za-z]" And Mid(ActiveCell.Value,
2, 1) Like "[A-Za-z]" Then
ActiveCell.Value = (Mid(ActiveCell.Value, 3, Len(ActiveCell.Value) -
2))
End If
ActiveCell.NumberFormat = "@"
ActiveCell.Offset(1, 0).Select
Loop

End Sub

</code

Thanks again,
Will

--
Message posted via http://www.officekb.com

Thanks I got it working...I needed to the number format before the other jazz

Thanks,
Will


willz99ta wrote:
Nope it's still not working. Here is the code I am using right now:

<code

Sub ShortenByTwo()

Do Until IsEmpty(ActiveCell)
If Mid(ActiveCell.Value, 1, 1) Like "[A-Za-z]" And Mid(ActiveCell.Value,
2, 1) Like "[A-Za-z]" Then
ActiveCell.Value = (Mid(ActiveCell.Value, 3, Len(ActiveCell.Value) -
2))
End If
ActiveCell.NumberFormat = "@"
ActiveCell.Offset(1, 0).Select
Loop

End Sub

</code

Thanks again,
Will

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200603/1