I have a sheet that has about 40,000 rows and each row contains a formula in
column "W" (23). I need to convert the formula to values. My current code
follows:

ActiveSheet.UsedRange.Columns(23).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues

Although the above works, I'm sure there is a more efficient method that
could be written in a single line of code. Can anyone help me out?

Thanks much in advance.