Tip Printed from ExcelTip.com
Change cells in the Activecell rowrange to values using VBA in Microsoft Excel

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



This will change the cells in the columns A:D to values In the ActiveCell.Row 
Sub Values_5()
    With ActiveSheet.Range(Cells(ActiveCell.Row, "A"), Cells(ActiveCell.Row, "D"))
        .Value = .Value
    End With
End Sub