Worksheet_Range Problem
Thank you very much Bernie.
"Bernie Deitrick" wrote:
CWillis
Start with
If Target.Cells.Count 1 Then Exit Sub
If Intersect(Range("G27"), Target) Is Nothing Then Exit Sub
--
HTH,
Bernie
MS Excel MVP
"CWillis" wrote in message
...
The following code currently updates the page when anything on the page is
changed. I would like for it to update only when something in cells G27:J27
is changed. (G27:J27 are merged into one cell.) Any ideas? Thanks.
Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "G27"
Application.EnableEvents = False
If Range("G27").Value = "Other" Then
Macro1
ElseIf Range("G27").Value = "WSW" Then
Macro2
Else: Macro3
End If
Application.EnableEvents = True
End Sub
|