Sub ChangeToValues()
With ActiveCell
With Intersect(ActiveSheet.UsedRange,.EntireColumn)
.Formula = .Value
End With
End With
End Sub

--
Regards,
Tom Ogilvy

"Derek Y via OfficeKB.com" <u13919@uwe wrote in message
news:55f28f8fe9167@uwe...
could someone tell me (i dont know how to write vba code at all) what vba
code to use to do the following:

I just want to be able to press like CTRL+SHIFT+U (or something like that)
and have a box come up and in the box i type W, or XW, OR AA...pretty much
some column. THEN push enter or something and have the script
automatically
copy that entire column and repaste that columns values on itself. (so its
no
longer a column filled with formulas that yield a value, but its a column
filled with those particular values)

Thanks so much in advance.


OOOHH or if it would be easier, it wouldn't even have to have that box
crap
come up, it could just use whatever column that the particular cell that
has
a box around it is in.


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