Vise / skjul rader med 'X'

[eli]

Hei NG
Jeg har tidligere i denne gruppen fått en makro av
Jørgen Bondesen, der jeg «krysser av» for at skjulte
rader skal bli synlige. Disse radene skal printes ut.
Makroen fungerer fint, både på Excel 2003 og 2010.
Men det er en liten «hake»:
Når et område med mange rader holdes skjult, blir
dette område (flere ark) printet ut «blanke».
Kan makroen nedenfor justeres slik at når et eller
flere «X» ikke blir valgt, så skal de berørte
radene (område) ikke printes ut.
Hilsen Eli

********************
Option Explicit
'----------------------------------------------------------
' Procedure : Worksheet_Change
' Date : 20110524a
' Author : Joergen Bondesen
' Modifyed by :
' Purpose : Unhide rows if X in cell.
' Note :
'----------------------------------------------------------
'
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim ISECT As Variant
Set ISECT = Application.Intersect(Target, Range("C12:C14"))
If Not ISECT Is Nothing Then
Rows("50:120").EntireRow.Hidden = True
Rows("125:200").EntireRow.Hidden = True
Rows("205:250").EntireRow.Hidden = True
If UCase(Range("C12").Value) = "X" Then
Rows("50:120").EntireRow.Hidden = False
End If
If UCase(Range("C13").Value) = "X" Then
Rows("125:200").EntireRow.Hidden = False
End If
If UCase(Range("C14").Value) = "X" Then
Rows("205:250").EntireRow.Hidden = False
End If
End If
Set ISECT = Nothing
End Sub
******************