View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Ctech[_109_] Ctech[_109_] is offline
external usenet poster
 
Posts: 1
Default Hiding named ranges depending on a cell value


Hi I ahve a combo box, which changes the value in cell depending on the
choice u pick. the bumber in the cell is either the letter A, or the
letter B

My problem is that the macro doesn't hide or unhides... and I can' seem
to understand what the problem is...

Can anyone see the error in the macro below?


Macro:


Sub Hide_unhide_date_period()

' This procedure hides and displays the dates / period input cells
depending on the CC selection on the front sheet.
' Written by Christian Simonsen 17/03/06

Dim myCell As Range

With Application
ScreenUpdating = False
DisplayAlerts = False
End With

Set myCell = ActiveCell


If Worksheets("TM1").Range("G15") = "A" Then
Range("Project_Periods").Select
Selection.EntireRow.Hidden = False

Range("Project_dates").Select
Selection.EntireRow.Hidden = True

ElseIf Worksheets("TM1").Range("G15") = "B" Then

Range("Project_Periods").Select
Selection.EntireRow.Hidden = True

Range("Project_dates").Select
Selection.EntireRow.Hidden = False

End If


myCell.Select

With Application
ScreenUpdating = True
DisplayAlerts = True
End With

End Sub


--
Ctech


------------------------------------------------------------------------
Ctech's Profile: http://www.excelforum.com/member.php...o&userid=27745
View this thread: http://www.excelforum.com/showthread...hreadid=524273