Two Cells as Event Target Problem

[sidney102]

Hi I have this that zooms if cell you are on cell G4 in Excel 2007 how can I make two cells to zoom, it tried different ways. Please advise hot to make multiple if statements with ELSE.
This does not work.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$G$4" Then
  ActiveWindow.Zoom = 100
    Else
  ActiveWindow.Zoom = 52
  End If
    If Target.Address = "$F$4" Then
  ActiveWindow.Zoom = 100
  Else
  ActiveWindow.Zoom = 52
End If
End Sub

With one Target address it works! Confused!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$G$4" Then
  ActiveWindow.Zoom = 100
    Else
  ActiveWindow.Zoom = 52
  End If
End Sub

Thanks

[JBeaucaire]

Hi Sidney... Welcome to the forum.

Be sure to read through the Forum Rules so you can use and follow them effectively. For instance, you'll need to EDIT that post above and put code tags around that code you used. (Like shown in my signature)

Your question is a simple one, so add the code tags and replace the title with a description of the problem, then you'll get rapid suggestions, I promise.

[sidney102]

ok, I updated the post

[MarvinP]

Hi Sidney102 and welcome to the forum.

First, could you edit your post, by clicking on the green "Edit" and then click on "Go Advanced". Change the thread title to something like "Two Cells as Event Target Problem". This will make it much easier to find and help others who may have the same question. Your current title of "Help with VB in Excel" is just too broad to help others. Also - Read the forum rules to see what they suggest as a good title.

Now on to your answer. How about using OR?

Darn - I just realized you should put code above in code tags also. To do that you need to click on "Go Advanced" like above and select that text that is code and then click on the "#" icon above the advanced message area.

I'll be in trouble if I answer your question without you fixing your post. You fix the two above problems and I'll give you my answer to yours.

[sidney102]

Hi How do I use OR in this problem?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$G$4" Then
  ActiveWindow.Zoom = 100
    Else
  ActiveWindow.Zoom = 52
  End If
  If Target.Address = "$F$4" Then
  ActiveWindow.Zoom = 100
  Else
  ActiveWindow.Zoom = 52
End If
End Sub

[JBeaucaire]

Please do not use the QUOTE button, we already know what has been said, repeating it is pointless. Use the Quick Reply box below.

Now you have TWO posts to fix. Please edit post #1 and #5, then click GO ADVANCED, highlight the code portion and click the # icon to put code tags around it. Like so:

Sub Macro1()
    This is properly formatted
End Sub

[sidney102]

Ok, I updated the question with the proper quote.

[shg]

How about this?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Address
        Case "$G$4", "$F$4"
            ActiveWindow.Zoom = 100
        Case Else
            ActiveWindow.Zoom = 52
    End Select
End Sub

[sidney102]

Works perfect

[MarvinP]

Hi,
Here is the OR solution:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$G$4" Or Target.Address = "$F$4" Then
  ActiveWindow.Zoom = 100
    Else
  ActiveWindow.Zoom = 52
  End If
End Sub

[JBeaucaire]

If that takes care of your need, please click EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED.