Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$F$26" Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
Range("E26").Value = Range("E26").Value * 2
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range(Target.Address), Range("F26:F47")) Is Nothing Then
Exit Sub
Else
If Target.Cells.Count > 1 Then
Exit Sub
Else
Range("E" & Target.Row).Value = Range("E" & Target.Row).Value * 2
End If
End If
End Sub
I need a formula to do the following. When I enter an x in f26 I need the figure in e26 to double. The name of the page is mileage form.