Zoom on selection

[Wayne]

I have the following code to "zoom" on a selection of one
or more chosen cells.:

Private Sub Worksheet_SelectionChange(ByVal Target As
Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range
("B63:B65,G47:G48,G53,G64,G65,L58,L60:l65,M3")) Is
Nothing Then
ActiveWindow.Zoom = 70
Else
ActiveWindow.Zoom = 100
End If
End Sub


My problem is I want to "zoom" when I select a merged
cell "G73:H75", I've tried adding this range to the
selection range in the above code but this isn't working.

Any Ideas?????

 

[Doug Glancy]

Wayne,

A merged cell target has a cell count of more than 1, so you want to exit
only if the target cells count is >1 and target is not G73:H75. Also, it
seems that if the target includes other cells along with G73:H75 you want to
exit. This led me to the following tortured logic. Tested in XL97 and 2000
(97 sometimes acts differently with merged cells, but it seemed to be okay
with this):

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Not (Target.Cells.Count = 1 Or (Not Intersect(Target, Range("G73:H75"))
Is Nothing And Target.Cells.Count = 6)) Then
Exit Sub
ElseIf Intersect(Target,
Range("B63:B65,G47:G48,G53,G64,G65,L58,L60:l65,M3,G73:H75")) Is Nothing Then
ActiveWindow.Zoom = 70
Else
ActiveWindow.Zoom = 100
End If

End Sub

hth,

Doug

 

[Robert McCurdy]

Hi Wayne.
Is this what you were looking for?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$G$73:$H$75" Then _
ActiveWindow.Zoom = 100: Exit Sub
If ActiveWindow.Zoom <> 70 Then ActiveWindow.Zoom = 70
End Sub


Regards Robert