Hola. Estoy intentando generar el código adecuado que me muestre algunas filas ocultas, dependiendo del contenido calculado en una celda y he generado el procedimiento que anexo a este, pero no logro que la acción se realice. ¿Alguien me puede indicar que estoy haciendo mal? Gracias anticipadas.

Private Sub Worksheet_Calculate()

Dim Wkb As Workbook, WksInfGen As Worksheet

Dim Sel As Integer


Set Wkb = ThisWorkbook

Set WksInfGen = Wkb.Worksheets("Inf Gen")

Sel = Range("Y17").Value


Application.ScreenUpdating = False

Application.EnableEvents = False

    Select Case Sel

    Case 1

      Rows("18:24").EntireRow.Hidden = False

    Case 2

      Rows("18:20").EntireRow.Hidden = False

      Rows("25:28").EntireRow.Hidden = False

    Case 3

      Rows("18:20").EntireRow.Hidden = False

      Rows("29:32").EntireRow.Hidden = False

    Case 4

      Rows("33:36").EntireRow.Hidden = False

    Case 5

      Rows("37:40").EntireRow.Hidden = False

    Case 6

      Rows("41:44").EntireRow.Hidden = False

    End Select


End Sub

[/CODE]

Hola

Porque no usas el evento Worksheet_Change?

Saludos