`Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
ActiveSheet.DisplayPageBreaks = False

If Target.Address = "$C$3" Then
    If Range("C3") = "Persona Moral" Then
    Range("6:14,293:323,519:536").EntireRow.Hidden = True
    Range("4:5,15:45,144:152,478:494").EntireRow.Hidden = False
    Worksheets("Representantes Legales").Visible = True
    Worksheets("Fideicomisarios-Fideicomitentes").Visible = False
    Else
    If Range("C3") = "Persona Física" Then
    Range("6:10,293:294,297:297,300:323,330:330,338:339,519:532").EntireRow.Hidden = False
    Range("4:5,11:45,144:152,478:494").EntireRow.Hidden = True
    Worksheets("Representantes Legales").Visible = False
    Worksheets("Fideicomisarios-Fideicomitentes").Visible = False
    Else
    If Range("C3") = "Fideicomiso" Then
    Range("11:14,533:534,536:536").EntireRow.Hidden = False
    Range("4:10,15:532,535:535").EntireRow.Hidden = True
    Worksheets("Representantes Legales").Visible = True
    Worksheets("Fideicomisarios-Fideicomitentes").Visible = True
        Else
    If Range("C3") = "" Then
    Rows("4:599").Hidden = True
    Worksheets("Representantes Legales").Visible = False
    Worksheets("Fideicomisarios-Fideicomitentes").Visible = False
    End If
    End If
    End If
    End If
End If`