Colleen45
Active Member
- Joined
- Jul 22, 2007
- Messages
- 495
These two codes work fine individually, but together (as they are below)I can't get them to work together, and I can't figure out why.
Code:
Option Explicit
Rem If cell = "yes" move cursor focus to selected cell
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub ' only one cell changes
If Not Intersect(Target, Range("E191,E197,E202,E212,F231,F233,F235,F251,F254,F260")) Is Nothing Then
If LCase(Target.Value) = "yes" Then
Application.EnableEvents = False
Select Case Target.Address(0, 0)
Case "E191": Range("G187").Select
Case "E197": Range("G193").Select
Case "E202": Range("G200").Select
Case "E212": Range("G205").Select
Case "F231": Range("I230").Select
Case "F233": Range("I232").Select
Case "F235": Range("I234").Select
Case "F251": Range("H247").Select
Case "F254": Range("H247").Select
Case "F260": Range("H257").Select
End Select
Application.EnableEvents = True
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet.Shapes("Rectangle 1")
.Left = Target.Left
.Top = Target.Top
.Width = Target.Width
.Height = Target.Height
End With
Target.Activate
End Sub
Last edited: