I am using a fairly small amount of code. The problem is the second section of code (which essentially just clears a range of cells if specific cell is cleared) is causing everything to run slow and flicker. By commenting out the section in question, everything is great. I find it strange that such a small condition could cause this. I have tried various VBA optimizations, but no luck.
Any ideas, or am I stuck with it?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRange As Range
Set MyRange = Range("$C$4:$C$10")
If Not Intersect(Target, Range("$B$3")) Is Nothing Then
MyRange.Value = ""
End If
' The next 3 lines are the problem
If Range("$C$3").Value = "" Then
MyRange.Value = ""
End If
If Range("$C$3").Value = "monthly" Then
Range("$C$9").Value = ""
End If
End Sub
Bookmarks