Boomer_Sooner
New Member
- Joined
- Jan 3, 2014
- Messages
- 3
I have a lot of cells that have lists that I would like to put into a code in order to have the zoom increase when those specific cells are active. Below is the code I am using and the error is with the list. I believe it is because it is too long. How can I make this work? The list in parenthesis is all on one line.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range( _
"F4,B14,D14,B22,D22,B30,D30,B38,D38,B46,D46,B57,D57,B65,D65,B73,D73,B81,D81,B89,D89,B104,D104,B111,D111,B119,D119,B127,D127,B135,D135,B143,D143,B151,D151,B159,D159,B163,D163,B171,D171,B179,D179,B187,D187,B195,D195,G13:G29,H33,J33,H41,J41,H49,J49,H57,J57,H65,J65,H73,J73,H81,J81,H85,J85,H93,J93,H101,J101,H109,J109,H113,J113,G121,G132,H141,J141,H149,J149,H157,J157,H165,J165,H173,J173,H181,J181,H189,J189,H197,J197" _
)) Is Nothing Then
ActiveWindow.Zoom = 100
Else
ActiveWindow.Zoom = 120
End If
End Sub
Thanks in advance for the help.
Chris
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range( _
"F4,B14,D14,B22,D22,B30,D30,B38,D38,B46,D46,B57,D57,B65,D65,B73,D73,B81,D81,B89,D89,B104,D104,B111,D111,B119,D119,B127,D127,B135,D135,B143,D143,B151,D151,B159,D159,B163,D163,B171,D171,B179,D179,B187,D187,B195,D195,G13:G29,H33,J33,H41,J41,H49,J49,H57,J57,H65,J65,H73,J73,H81,J81,H85,J85,H93,J93,H101,J101,H109,J109,H113,J113,G121,G132,H141,J141,H149,J149,H157,J157,H165,J165,H173,J173,H181,J181,H189,J189,H197,J197" _
)) Is Nothing Then
ActiveWindow.Zoom = 100
Else
ActiveWindow.Zoom = 120
End If
End Sub
Thanks in advance for the help.
Chris