Skip to content

Instantly share code, notes, and snippets.

@ndthanh

ndthanh/Worksheet_Change.bas Secret

Created March 21, 2020 04:24
Show Gist options
  • Save ndthanh/66f3b1e69bd5eee60ecac143edecbf1e to your computer and use it in GitHub Desktop.
Save ndthanh/66f3b1e69bd5eee60ecac143edecbf1e to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Worksheet_Change.bas
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B3:B6")) Is Nothing Then
Sheet1.Range("C1").ClearContents
Call blink_cell
End If
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment