View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
Wanna Learn Wanna Learn is offline
external usenet poster
 
Posts: 318
Default command button add another command

Hello Below is the code for a command button I Have. I have sevaral of
these command buttons in the file.
Private Sub CommandButton1_Click()
Dim myRng As Range
Set myRng = Me.Range("a36:V70")
myRng.EntireRow.Hidden = Not (myRng(1).EntireRow.Hidden)

To this command button I want to add another command which is if Cell A
70 = Non-Standard (this is from a drop down list) then unhide rows 71 thru
79. Thanks in advance