View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Ram[_5_] Ram[_5_] is offline
external usenet poster
 
Posts: 42
Default Code correction pls help

Hi,

I have a cell (D4) in Sheet 2, which is referenced to cell (D87) in
Sheet1.

Cell D4 has a dropdown (thru Data - Validation - list) Values are :-
Select one, 1, 2, 3, 4, 5

Now i have a code in Sheet2 (for cell D4), which will unhide cells
based on values given in D87. The code is working fine.

My problem is the rows dont hide/unhide, till click on some other cell
and click back on D4 in Sheet2. Can this be fixed ?? My code is below

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Range("Offering_Info")
If Not Intersect(.Cells, Target) Is Nothing Then
Application.ScreenUpdating = False
Rows("5:14").Hidden = True
If IsNumeric(.Value) Then
Rows("5:5"). _
Resize(1 + CLng(.Value) * 2).Hidden = False
End If
Application.ScreenUpdating = True
End If
End With
End Sub