LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #13   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default How to 'Click and then perform action'


Thanks guys but i think i didn't make myself clear. I wanted to have
two cells that zoom in and out on the same sheet but in different
places. I figured it out with the basics you gave me before - or i
needed was an ElseIf. Doh!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$7:$E$7" Then
ActiveWindow.Zoom = 110
ElseIf Target.Address = "$B$61:$C$61" Then
ActiveWindow.Zoom = 110
Else: ActiveWindow.Zoom = 40
End If
End Sub

Thanks for the input guys and gals.


--
chris100
------------------------------------------------------------------------
chris100's Profile: http://www.excelforum.com/member.php...o&userid=25166
View this thread: http://www.excelforum.com/showthread...hreadid=388140

 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Perform action if value in cell - conditional VB stmt Studebaker Excel Discussion (Misc queries) 2 February 29th 08 06:34 PM
%1 appears in "Application used to perform action" when trying to edit a file type [email protected] Excel Worksheet Functions 3 December 7th 06 07:00 PM
How to perform action in all worksheets Sethaholic Excel Programming 6 July 11th 05 07:44 PM
Macro doesn't perform correctly when using right click menu David Cuthill[_2_] Excel Programming 2 July 26th 04 06:15 PM
Perform action when cell is clicked Jason[_26_] Excel Programming 3 October 4th 03 06:08 PM


All times are GMT +1. The time now is 02:11 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"