Worksheet_SelectionChange code for Data Validation

[jeffreybrown]

Hi All,

I am trying to combine two Worksheet_SelectionChange events into one, but with the code below I get a compile error: Else without If. What can be done to correct this?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Address <> "$B$4" Then Exit Sub
    ActiveWindow.Zoom = 120
    SendKeys "%{down}"
    Else
    ActiveWindow.Zoom = 100
    End If
End Sub

 

[Andrew Poulsom]

Maybe you need to remove the Exit Sub in:

If Target.Address <> "$B$4" Then Exit Sub

 

[jeffreybrown]

Hi Andrew,

That doesn't seem to help. If I remove the Exit Sub then the procedure works on all cells and not just the B4 where I have the DV.

 

[lenze]

Try this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Address = "$B$4" Then 
        ActiveWindow.Zoom = 120
        SendKeys "%{down}"
    Else: ActiveWindow.Zoom = 100
    End If
End Sub

lenze

 

[jeffreybrown]

Yes Lenze thanks. Why does the : make a difference?

 

[lenze]

The ":" just saves a line by allowing you to use the same line if you only have one line of code

lenze

 

[jeffreybrown]

Lenze thanks again to both you and Andrew.