Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("a1:a10")) Is Nothing Then
ActiveWindow.Zoom = 75
Else
ActiveWindow.Zoom = 100
End If
End Sub
wie kann ich den bereich auch auf die spalte c und e erweitern ???
danke für jede hilfe :-)