Hi
You could give this a try
Range("B1:B5000").Copy
Range("C1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("B1:B5000").Select
Application.CutCopyMode = False
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.ClearContents
End Sub
Or, if you mean you also want to convert the formulas in column B to values as well, then:
Range("B1:B5000").Copy
Range("C1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("B1:B5000").Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub
Regards
Derek
This message was edited by Derek on 2002-03-20 01:30