CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede frbl Nybegynder
26. januar 2013 - 14:12 Der er 8 kommentarer og
1 løsning

Dele en for lang kode i visual basic

Hej derude

Er der nogen der kan hjælpe mig med at få delt denne kode så den ikke bliver for lang for visual basic.
Kan den eventuelt deles op til flere koder?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E3")) Is Nothing Then
    Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("F3").Value = ""
        Range("G3").Value = ""
        Range("H3").Value = ""
        Range("E4").Value = ""
        Range("F4").Value = ""
        Range("G4").Value = ""
        Range("H4").Value = ""
        Range("E5").Value = ""
        Range("F5").Value = ""
        Range("G5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("F3")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("G3").Value = ""
        Range("H3").Value = ""
        Range("E4").Value = ""
        Range("F4").Value = ""
        Range("G4").Value = ""
        Range("H4").Value = ""
        Range("E5").Value = ""
        Range("F5").Value = ""
        Range("G5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = False
        Worksheets(12).Visible = False
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("G3")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("F3").Value = ""
        Range("H3").Value = ""
        Range("E4").Value = ""
        Range("F4").Value = ""
        Range("G4").Value = ""
        Range("H4").Value = ""
        Range("E5").Value = ""
        Range("F5").Value = ""
        Range("G5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("H3")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("F3").Value = ""
        Range("G3").Value = ""
        Range("E4").Value = ""
        Range("F4").Value = ""
        Range("G4").Value = ""
        Range("H4").Value = ""
        Range("E5").Value = ""
        Range("F5").Value = ""
        Range("G5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("E4")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("F3").Value = ""
        Range("G3").Value = ""
        Range("H3").Value = ""
        Range("F4").Value = ""
        Range("G4").Value = ""
        Range("H4").Value = ""
        Range("E5").Value = ""
        Range("F5").Value = ""
        Range("G5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("F4")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("F3").Value = ""
        Range("G3").Value = ""
        Range("H3").Value = ""
        Range("E4").Value = ""
        Range("G4").Value = ""
        Range("H4").Value = ""
        Range("E5").Value = ""
        Range("F5").Value = ""
        Range("G5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = False
        Worksheets(12).Visible = False
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("G4")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("F3").Value = ""
        Range("G3").Value = ""
        Range("H3").Value = ""
        Range("E4").Value = ""
        Range("F4").Value = ""
        Range("H4").Value = ""
        Range("E5").Value = ""
        Range("F5").Value = ""
        Range("G5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("H4")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("F3").Value = ""
        Range("G3").Value = ""
        Range("H3").Value = ""
        Range("E4").Value = ""
        Range("F4").Value = ""
        Range("G4").Value = ""
        Range("E5").Value = ""
        Range("F5").Value = ""
        Range("G5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("E5")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("F3").Value = ""
        Range("G3").Value = ""
        Range("H3").Value = ""
        Range("E4").Value = ""
        Range("F4").Value = ""
        Range("G4").Value = ""
        Range("H4").Value = ""
        Range("F5").Value = ""
        Range("G5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("F5")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("F3").Value = ""
        Range("G3").Value = ""
        Range("H3").Value = ""
        Range("E4").Value = ""
        Range("F4").Value = ""
        Range("G4").Value = ""
        Range("H4").Value = ""
        Range("E5").Value = ""
        Range("G5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = False
        Worksheets(12).Visible = False
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("G5")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("F3").Value = ""
        Range("G3").Value = ""
        Range("H3").Value = ""
        Range("E4").Value = ""
        Range("F4").Value = ""
        Range("G4").Value = ""
        Range("H4").Value = ""
        Range("E5").Value = ""
        Range("F5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("H5")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("F3").Value = ""
        Range("G3").Value = ""
        Range("H3").Value = ""
        Range("E4").Value = ""
        Range("F4").Value = ""
        Range("G4").Value = ""
        Range("H4").Value = ""
        Range("E5").Value = ""
        Range("F5").Value = ""
        Range("G5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheet
Avatar billede supertekst Ekspert
26. januar 2013 - 15:45 #1
Et lille bidrag i første omgang:

Public Sub eksempler()
    arkVisning 2, 60, False        'arkene (2) til (60) vises ikke
    arkVisning 2, 60, True          'arkene vises nu
   
End Sub
Private Sub arkVisning(fra, til, visJaNej)
Dim ark As Worksheet
    For Each ark In ActiveWorkbook.Sheets
        If ark.Index >= fra And arkindex <= til Then
            ark.Visible = visJaNej
        End If
    Next
End Sub
Avatar billede store-morten Ekspert
26. januar 2013 - 16:47 #2
Øverste del:

        Range("F3").Value = ""
        Range("G3").Value = ""
        Range("H3").Value = ""
        Range("E4").Value = ""
        Range("F4").Value = ""
        Range("G4").Value = ""
        Range("H4").Value = ""
        Range("E5").Value = ""
        Range("F5").Value = ""
        Range("G5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""

Kan kortes ned til:

        Range("F3:H3").Value = ""
        Range("E4:G4").Value = ""
        Range("E5:H6").Value = ""
        Range("E8:H11").Value = ""

Dettet kan også gøres med de andre "grupper"
Avatar billede frbl Nybegynder
26. januar 2013 - 18:53 #3
Supertekst:
Kan du lige forklare lidt mere om hvordan det skal bruges?

Store-Morten.
Det prøver jeg lige af og kan
nedenstående ændres til
Worksheets (2:14) . Visible = True
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
Avatar billede store-morten Ekspert
26. januar 2013 - 19:39 #4
Nu har du jo gang i to spørgsmål: http://www.eksperten.dk/spm/975808#reply_8024367

Har forsøgt med:

Sub VisAlleArk()
Dim w As Integer
    'vælg ark nummer 1
    ActiveWorkbook.Worksheets(1).Select
    'fra 1. ark til sidste ark
    For w = 1 To ThisWorkbook.Worksheets.Count
            Worksheets(w).Visible = True
    Next w
    'vælg ark nummer 1
    ActiveWorkbook.Worksheets(1).Select
End Sub

Og:

Sub Skjul_13_til_SidsteArk()
Dim w As Integer
    'vælg ark nummer 1
    ActiveWorkbook.Worksheets(1).Select
    'fra 13. ark til sidste ark
    For w = 13 To ThisWorkbook.Worksheets.Count
            Worksheets(w).Visible = False
    Next w
    'vælg ark nummer 1
    ActiveWorkbook.Worksheets(1).Select
End Sub

Lagt ind i din kode med:
Call VisAlleArk og Call Skjul_13_til_SidsteArk
Avatar billede frbl Nybegynder
27. januar 2013 - 13:46 #5
Store Morten

Jeg har lagt ovenstående to koder ind for oven i den eksisterende kode, men hvilke linjer skal jeg lægge ind hvor?

Sub VisAlleArk()
Dim w As Integer
    'vælg ark nummer 1
    ActiveWorkbook.Worksheets(1).Select
    'fra 1. ark til sidste ark
    For w = 1 To ThisWorkbook.Worksheets.Count
            Worksheets(w).Visible = True
    Next w
    'vælg ark nummer 1
    ActiveWorkbook.Worksheets(1).Select
End Sub
Sub Skjul_13_til_SidsteArk()
Dim w As Integer
    'vælg ark nummer 1
    ActiveWorkbook.Worksheets(1).Select
    'fra 13. ark til sidste ark
    For w = 13 To ThisWorkbook.Worksheets.Count
            Worksheets(w).Visible = False
    Next w
    'vælg ark nummer 1
    ActiveWorkbook.Worksheets(1).Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E3")) Is Nothing Then
    Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E4:E10").Value = ""
        Range("F3:F10").Value = ""
        Range("G3:G10").Value = ""
        Range("H3:H10").Value = ""
        Worksheets(2).Visible = True
Avatar billede store-morten Ekspert
27. januar 2013 - 16:56 #6
Se link i #4
Avatar billede store-morten Ekspert
03. februar 2013 - 17:30 #7
Har du kikket på det?
Avatar billede store-morten Ekspert
03. februar 2013 - 17:33 #8
Prøv:
Sub VisAlleArk()
Dim w As Integer
    'vælg ark nummer 1
    ActiveWorkbook.Worksheets(1).Select
    'fra 1. ark til sidste ark
    For w = 1 To ThisWorkbook.Worksheets.Count
            Worksheets(w).Visible = True
    Next w
    'vælg ark nummer 1
    ActiveWorkbook.Worksheets(1).Select
End Sub

Sub Skjul_13_til_SidsteArk()
Dim w As Integer
    'vælg ark nummer 1
    ActiveWorkbook.Worksheets(1).Select
    'fra 13. ark til sidste ark
    For w = 13 To ThisWorkbook.Worksheets.Count
            Worksheets(w).Visible = False
    Next w
    'vælg ark nummer 1
    ActiveWorkbook.Worksheets(1).Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Afslut
    If Not Intersect(Target, Range("E3")) Is Nothing Then
    Application.EnableEvents = False 'For at undgå at koden looper
    Application.ScreenUpdating = False
   
If Target.Value = "x" Then
        Range("F3:H3").Value = ""
        Range("E4:G4").Value = ""
        Range("E5:E6").Value = ""
        Range("F5:F6").Value = ""
        Range("E8:H8").Value = ""
        Range("F8:H8").Value = ""
        Range("E9:H9").Value = ""
        Range("E11:H11").Value = ""
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Call Skjul_13_til_SidsteArk

Application.EnableEvents = True
Exit Sub
    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If

  If Not Intersect(Target, Range("F3")) Is Nothing Then
    Application.EnableEvents = False 'For at undgå at koden looper
    Application.ScreenUpdating = False

        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("G3:H3").Value = ""
        Range("E4:H11").Value = ""
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Worksheets(11).Visible = False
        Worksheets(12).Visible = False
        Call Skjul_13_til_SidsteArk

Application.EnableEvents = True
Exit Sub
    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If

        If Not Intersect(Target, Range("G3")) Is Nothing Then
            Application.EnableEvents = False 'For at undgå at koden looper
    Application.ScreenUpdating = False

        If Target.Value = "x" Then
        Range("E3:F3").Value = ""
        Range("H3").Value = ""
        Range("E4:H11").Value = ""
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Call Skjul_13_til_SidsteArk

Application.EnableEvents = True
Exit Sub

    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If

        If Not Intersect(Target, Range("H3")) Is Nothing Then
            Application.EnableEvents = False 'For at undgå at koden looper
            Application.ScreenUpdating = False
   
        If Target.Value = "x" Then
        Range("E3:G3").Value = ""
        Range("E4:H11").Value = ""
       
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Call Skjul_13_til_SidsteArk

Application.EnableEvents = True
Exit Sub

    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If
   
        If Not Intersect(Target, Range("E4")) Is Nothing Then
            Application.EnableEvents = False 'For at undgå at koden looper
    Application.ScreenUpdating = False

        If Target.Value = "x" Then
        Range("E3:H11").Value = ""
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Call Skjul_13_til_SidsteArk
Application.EnableEvents = True
Exit Sub

    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If

        If Not Intersect(Target, Range("F4")) Is Nothing Then
            Application.EnableEvents = False 'For at undgå at koden looper
    Application.ScreenUpdating = False

        If Target.Value = "x" Then
        Range("E3:H11").Value = ""
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Worksheets(11).Visible = False
        Worksheets(12).Visible = False
        Call Skjul_13_til_SidsteArk
Application.EnableEvents = True
Exit Sub

    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If

        If Not Intersect(Target, Range("G4")) Is Nothing Then
            Application.EnableEvents = False 'For at undgå at koden looper
    Application.ScreenUpdating = False

        If Target.Value = "x" Then
        Range("E3:H11").Value = ""
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Call Skjul_13_til_SidsteArk

Application.EnableEvents = True
Exit Sub

    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If
   
        If Not Intersect(Target, Range("H4")) Is Nothing Then
            Application.EnableEvents = False 'For at undgå at koden looper
    Application.ScreenUpdating = False

        If Target.Value = "x" Then
        Range("E3:H11").Value = ""
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Call Skjul_13_til_SidsteArk

Application.EnableEvents = True
Exit Sub

    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If

        If Not Intersect(Target, Range("E5")) Is Nothing Then
            Application.EnableEvents = False 'For at undgå at koden looper
    Application.ScreenUpdating = False

        If Target.Value = "x" Then
        Range("E3:H11").Value = ""
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Call Skjul_13_til_SidsteArk

Application.EnableEvents = True
Exit Sub

    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If

        If Not Intersect(Target, Range("F5")) Is Nothing Then
            Application.EnableEvents = False 'For at undgå at koden looper
    Application.ScreenUpdating = False

        If Target.Value = "x" Then
        Range("E3:H11").Value = ""
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Worksheets(11).Visible = False
        Worksheets(12).Visible = False
        Call Skjul_13_til_SidsteArk

Application.EnableEvents = True
Exit Sub

    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If

        If Not Intersect(Target, Range("G5")) Is Nothing Then
            Application.EnableEvents = False 'For at undgå at koden looper
    Application.ScreenUpdating = False

        If Target.Value = "x" Then
        Range("E3:H11").Value = ""
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Call Skjul_13_til_SidsteArk

Application.EnableEvents = True
Exit Sub

    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If

Afslut:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Som er til Target, Range("G5")

Skal testes for fejl!!!
Avatar billede frbl Nybegynder
18. marts 2013 - 21:27 #9
Tak for hjælpen
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Se alle it-kurser fra Computerworld Kurser
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.
Se alle it-kurser

Flere spørgsmål fra Office & Kontorpakker kategorien

Titel Indlæg Oprettet Seneste aktivitet
2 pc-er med fælles folder på onedrive Af KurtG i Office & Kontorpakker 2 22/07/202417:17 I går 10:40
Microsoft booke mødelokale UDEN mig selv. Af Jørgen Kirkegaard i Office & Kontorpakker 1 15/07/202410:10 15/07/202417:40
Outlook -hyppighed for synkronisering POP3-konto Af Bård Jensen i Office & Kontorpakker 3 12/06/202420:40 13/06/202413:34
Aomei Backupper pro til Outlook Af barth i Office & Kontorpakker 2 30/05/202414:59 30/05/202420:33
Print tosidet opslag til pdf fra Publisher Af KurtG i Office & Kontorpakker 13 27/05/202413:20 29/05/202409:36
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 21:08 Hvor kan man se Alan Turings mekaniske apparat til at løse Enignas koder Af KurtG i Andet hardware
I går 18:46 Kan det passe ;-) Af fjorbak i Routere & Switches
I går 15:27 Billeder kan ikke åbnes Jpeg.modd Af KristinaS i Billedbehandling
I går 13:44 eM Client Af valby i E-mail programmer
I går 13:33 Facebook gruppe Af Btimmer i Sociale medier
White papers
Flere white papers »


Premium
Teaser billede
Det er blevet kaldt ”det største it-nedbrud i historien” og omkostningerne kan nemt løbe op i syv milliarder kroner: Men hvem skal betale for Crowdstrikes fejl?
Læs mere »
Europas største software-leverandør stryger frem på cloud-fronten – men 97 procent af overskuddet er forduftet
Frustrerede synshaller og billister: Motorstyrelsens it-system plages af store driftsforstyrrelser
Fire år gamle Wiz takker nej til Alphabets historiske opkøbstilbud på 160 milliarder kroner: Satser i stedet på børsnotering
Se alle »
Computerworld
Teaser billede
Microsoft-nedbrud spreder sig: It-systemer i lufthavne verden over er ramt
Læs mere »
Test: Denne mikro-pc er smartere end de stærkeste desktop-maskiner - men flopper alligevel
Elon Musk dropper CrowdStrike efter kæmpe nedbrud
Hundredevis af flyafgange ramt af stort Microsoft-nedbrud
Se alle »
CIO
Teaser billede
Microsoft er på sagen: I gang med at løse kæmpe nedbrud efter katastrofal Crowdstrike-fejl
Læs mere »
Så mange Microsoft-enheder blev ramt af gigantisk Crowdstrike-koks
Peter Lüth udlever CTO-drømmen: Bygger et system fra bunden og tjener kassen på det
Sådan forbereder energiselskabet OK sig på cyberangreb: "Prisen for ikke at gøre noget kan være forfærdeligt høj"
Se alle »
Job & Karriere
Teaser billede
Efter 12 år er NNIT's hovedkvarter i Søborg nu ryddet og tomt - alle arbejder hjemme: "Det er med et vist vemod"
Læs mere »
Norlys skal splittes op i fem selskaber: Nu bliver flere ansatte og ledere fyret
Dansk top-profil trækker sig fra Microsoft: Skal være direktør i TDC Erhverv
KMD-direktør forlader selskabet: Det skal hun nu
Se alle »
White paper
Teaser billede
Optimering af Source-to-Pay: Identificér oplagte gevinster og skær omkostninger
Læs mere »
Sådan får du overblik og beskytter dine cloudapplikationer
Sådan gør du: Elektronisk dokumentudveksling i praksis
SASE: Træf det rette valg – første gang
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »