Terug naar eerste sheet

Sub Afdrukken_water()

'
' Afdrukken_water Macro
If MsgBox("U gaat nu de standaardlijsten voor water, installatieplan en toolbox afdrukken!" & vbCr & vbCr & "Wilt u doorgaan?", vbOKCancel + vbQuestion, "Afdrukken") = vbCancel Then Exit Sub


ActiveSheet.Unprotect
    Range("C41:L180,C605:L731").Select
    Range("L41").Activate
    Selection.PrintOut Copies:=1, Collate:=True
    ActiveWindow.SmallScroll Down:=-168
    Range("J18").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True '
    
    Range("E57").Select
    Selection.Copy
    Sheets("Werkvergunning").Range("N6").PasteSpecial Paste:=xlPasteValues
Worksheets("Werkvergunning").PrintOut Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
        

End Sub

Sub Afdrukken_water()
' Afdrukken_water Macro
Dim sht1 As Worksheet, sht2 As Worksheet
Dim rng1 As Range, rng2 As Range
    If MsgBox("U gaat nu de standaardlijsten voor water, installatieplan en toolbox afdrukken!" & vbCr & vbCr _
        & "Wilt u doorgaan?", vbOKCancel + vbQuestion, "Afdrukken") = vbCancel Then Exit Sub
    
    Set sht1 = ActiveSheet
    Set sht2 = Sheets("Werkvergunning")
    sht1.Unprotect
    Set rng1 = Range("A8:E38")
    With sht1
        rng1.PrintOut Copies:=1, Collate:=True
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
        With sht2
            .Range("A2").Value = sht1.Range("E38")
            .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        End With
    End With
End Sub

Sub M_snb()
  If MsgBox("U gaat nu de standaardlijsten voor water, installatieplan en toolbox afdrukken" & vbCr & vbCr _
        & "Wilt u doorgaan?", vbOKCancel + vbQuestion, "Afdrukken") = vbCancel Then Exit Sub

  Range("A8:E38").PrintOut
  Sheets("Werkvergunning").Range("A2").Value = Range("E38")
  Sheets("Werkvergunning").PrintOut
End Sub