Sub UpdateFormula() Range(Cells(Selection.Row, 18), Cells(Selection.Row, 24)).Select Range("anchor_variable").Formula = "=Anchor1" Range("table_variable").Formula = "=base_point+short_end_increment*(base_year-R$15)" End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target .Range("anchor_variable").Formula = "=Anchor1" .Range("table_variable").Formula = "=base_point+short_end_increment*(base_year-R$15)" End With End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)