View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Max Max is offline
external usenet poster
 
Posts: 9,221
Default Extending sub to cover other target cells

How could the sub below* be extended to cover additional cells besides C2,
viz.: the zoom to 120 should work for: C2, C25, C48, C71, C94
(the other cells in col C are offset to the start cell C2 by 24)
*from Debra's site

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$2" Then
ActiveWindow.Zoom = 120
Else
ActiveWindow.Zoom = 100
End If
End Sub

Thanks
--
Rgds
Max
xl 97
---
Singapore, GMT+8
xdemechanik
http://savefile.com/projects/236895
--