Skip to content

Instantly share code, notes, and snippets.

@ndthanh ndthanh/Worksheet_Change.bas Secret

Created Mar 21, 2020
Embed
What would you like to do?
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
You can’t perform that action at this time.