Sub AdjustColumn()
Dim rng As Range
Dim cell As Range
Set cell = Selection
Set rng = Intersect(ActiveCell.EntireColumn, _
ActiveSheet.UsedRange)
rng.NumberFormat = "General"
With Range("IV1")
.Value = 1
.Copy
End With
rng.SpecialCells(xlConstants).PasteSpecial _
xlValues, xlMultiply
Columns(256).Delete
ActiveSheet.UsedRange
cell.Select
End Sub

--
Regards,
Tom Ogilvy

wrote in message
oups.com...
Hi - tried it (xlValues), but no luck. The problem with the copy and
paste is that I am doing it from the same column.