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
Access Af Budwar i Office & Kontorpakker 1 11/11/202415:21 12/11/202410:47
kan man fjerne login i mail Af thedukedk i Office & Kontorpakker 5 09/11/202411:49 09/11/202422:05
Fra Microsoft 365 til Libre Office Af Btimmer i Office & Kontorpakker 4 03/11/202410:52 03/11/202414:38
Opret ny Acces database - opgave styring Af K6950 i Office & Kontorpakker 1 21/10/202417:04 22/10/202413:03
Sletning af email adresse i Outlook Professional Plus 2021 Af Mariann i Office & Kontorpakker 5 06/10/202414:36 08/10/202414:01
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 dag 13:15 Mindre videofil størrelse Af jackie18 i Andet software
I dag 10:44 Ændre nuller til ovenstående tekst Af boro23 i Excel
I dag 08:31 HVIS med datoer Af HHA i Excel
I går 20:12 Ældre lysstofarmatur (2011) Af ErikHg i Fri debat
I går 14:05 Numerisk liste Af AND i Excel
White papers
Flere white papers »


Premium
Teaser billede
Rejsekort-udgift brager op: Prisen for at udskifte standere stiger med 25 procent - alle standere skal væk
Læs mere »
Microsofts store årlige event: De tre vigtigste nøglebudskaber fra Satya Nadella om Microsofts fremtid
Tre klare årsager: Derfor har Netcompany fastansat den højest placerede dansker i det internationale diplomati
Efter pludselig annullering: Domstolsstyrelsen igen på udkig efter ny hovedleverandør - skal afløse NNIT
Se alle »
Computerworld
Teaser billede
60.000 routere risikerer at blive overtaget af hackere – producent afviser at fikse problemet
Læs mere »
Test: Audi Q6 er en super fed SUV - men gør dig selv en tjeneste og kast flere penge efter den
Det vrimler frem med gratis-alternativer til ChatGPT Plus – her er de bedste af dem
Microsofts nye pc er ekstrem billig – men kan blive ekstrem sikker og fleksibel
Se alle »
CIO
Teaser billede
Dansk ”AI-kogebog” er klar: Her er ni nedslagspunkter, der skal sende Danmark forrest i AI-kapløbet
Læs mere »
Danske sygehuse når ikke at opgradere tusindvis af computere til Windows 11 i tide: Får konsekvenser for it-sikkerheden
Stor sag mod Microsoft kan være på vej: Beskyldes for at låse Azure-kunder fast med ulovlige metoder
Kæmpe-opgave for Danske Bank har banet vej for fuldautomatiseret migrering til cloud: Nu udbredes metoden i hele AWS
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Tre Norlys-topchefer fratræder med omgående virkning: Internet-forretningen er udfordret - vil have mere fart i integrationen af Telia Danmark
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Se alle »
White paper
Teaser billede
MDR: Transparent sikkerhed og overvågning i realtid
Læs mere »
SMB og cybertrusler: Brug sikkerhedsressourcerne optimalt
Styrk compliance, sikkerhed og overblik med ét hug
Er din cybersikkerhed klar til AI-revolutionen?
Se alle »

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