active cell highlight in excel by vba coading

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

Dim Metric As String

Metric = Target.Value

Select Case Metric

    Case "Revenue"

        Worksheets("Data").Range("F2").Value = Metric

        

    Case "Gross Profit"

        Worksheets("Data").Range("F2").Value = Metric

    

    Case "Net Profit"

        Worksheets("Data").Range("F2").Value = Metric

    

    Case "Employees"

        Worksheets("Data").Range("F2").Value = Metric

    

    End Select

End Sub