Skip to content

Instantly share code, notes, and snippets.

@allenluce
Created January 26, 2017 21:41
Show Gist options
  • Save allenluce/9b103a10498606adbc6139702e15dacd to your computer and use it in GitHub Desktop.
Save allenluce/9b103a10498606adbc6139702e15dacd to your computer and use it in GitHub Desktop.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Target.Column = 4 Or Target.Column = 5 Or Target.Column = 6 Then
Target.Value = Target.Value * 0.22
End If
Application.EnableEvents = True
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment