Advertisement
Advertisement
| 07.03.2008 at 08:31AM PDT, ID: 23537201 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: |
Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Dim l As Long
If (Trim(Range("B6").Value) = "") Then
Columns("F:F").Hidden = True
Columns("E:E").Hidden = False
For l = 7 To 8
With Cells(l, 2)
.EntireRow.Hidden = True
End With
Next
Else
Columns("E:E").Hidden = True
Columns("F:F").Hidden = False
For l = 7 To 8
With Cells(l, 2)
.EntireRow.Hidden = False
End With
Next
End If
Application.ScreenUpdating = True
End Sub
|