Tip Printed from ExcelTip.com
Change all cells in a range to values using VBA in Microsoft Excel

VBA macro tip contributed by Ron de Bruin, Microsoft MVP - Excel



This will not work correct on a range with more then one Area. 
Sub Values_3()
    Range("A1:D1").Value = Range("A1:D1").Value
End Sub