Boa noite.
Após gerar as etiquetas, preciso que o formulário seja fechado. Porém tentei adapta-lo para dentro do formulario e após gerar as etiquetas, o formulário não fecha e o mesmo fica travado.

Sub Gerar_Etiquetas()
Application.ScreenUpdating = False

Dim MateriaPrima As String
Dim Lin As Integer
Dim U_L As Integer
Dim i As Integer
Dim Qtde As Integer
Dim Fornecedor As String
Dim DataRecebimento As String
Dim LoteFornecedor As String
Dim LoteFabricante As String
Dim CodigoProduto As String
Dim S As String ' sitema de corte
Dim Cod_Rastreio As String
Dim Col As Integer
Dim ik As Integer
Dim Receb As Date
Dim LOTE As Integer
Dim NCQ As String
Dim Fabricacao As String
Dim Validade As String
Sheets("COD BARRAS").Activate 'GUIA "IMP"
    
    Sheets("COD BARRAS").DrawingObjects.Delete 'GUIA "IMP"
    U_L = Sheets("CAD BARRAS").Range("A" & Rows.Count).End(xlUp).Row 'GUIA "GERADOR"
    Lin = 1: Col = 1
    
    For i = 2 To U_L
        MateriaPrima = Sheets("CAD BARRAS").Range("B" & i) 'GUIA "GERADOR"
        CodigoProduto = Sheets("CAD BARRAS").Range("C" & i)
        Fornecedor = Sheets("CAD BARRAS").Range("D" & i)
        DataRecebimento = Sheets("CAD BARRAS").Range("E" & i)
        NCQ = Sheets("CAD BARRAS").Range("A" & i)
        Fabricacao = Sheets("CAD BARRAS").Range("f" & i)
        Validade = Sheets("CAD BARRAS").Range("G" & i)
        LoteFornecedor = Sheets("CAD BARRAS").Range("h" & i)
        LoteFabricante = Sheets("CAD BARRAS").Range("I" & i)
        
        Qtde = Sheets("CAD BARRAS").Range("J" & i)  'GUIA "GERADOR"
        'S = Sheets("REFERENCIA").Range("H" & I) 'sistema de corte
        'Cod_Rastreio = Sheets("REFERENCIA").Range("I" & I) 'c?d. rastreio
        
        
        Sheets("RESUMO").Activate               'GUIA "IDENTIFICACAO"
        Sheets("resumo").Range("A2") = "MATERIA-PRIMA:" & MateriaPrima  'GUIA "IDENTIFICACAO"
        With Sheets("resumo").Range("a2")
           .Font.FontStyle = "regular"
           .Characters(1, InStr(.Value, ":")).Font.Bold = True
        End With
        Sheets("resumo").Range("A3") = "DATA DE RECEBIMENTO:" & DataRecebimento
        With Sheets("resumo").Range("a3")
           .Font.FontStyle = "regular"
           .Characters(1, InStr(.Value, ":")).Font.Bold = True
        End With
        Sheets("resumo").Range("a4") = "C?DIGO:" & CodigoProduto '& "                " & "N? DO CQ:" & NCQ
        With Sheets("resumo").Range("a4")
           .Font.FontStyle = "regular"
           .Characters(1, InStr(.Value, ":")).Font.Bold = True
           
        End With
        Sheets("resumo").Range("B4") = "N? DO CQ:" & NCQ
        With Sheets("resumo").Range("B4")
           .Font.FontStyle = "regular"
           .Characters(1, InStr(.Value, ":")).Font.Bold = True
        End With
        Sheets("RESUMO").Range("A5") = "FORNECEDOR:" & Fornecedor
        With Sheets("resumo").Range("a5")
           .Font.FontStyle = "regular"
           .Characters(1, InStr(.Value, ":")).Font.Bold = True
        End With
        Sheets("RESUMO").Range("A6") = "LOTE DO FORNECEDOR:" & LoteFornecedor
        With Sheets("resumo").Range("a6")
           .Font.FontStyle = "regular"
           .Characters(1, InStr(.Value, ":")).Font.Bold = True
        End With
        Sheets("RESUMO").Range("A7") = "LOTE DO FABRICANTE:" & LoteFabricante 'sistema de corte
        With Sheets("resumo").Range("a7")
           .Font.FontStyle = "regular"
           .Characters(1, InStr(.Value, ":")).Font.Bold = True
        End With
        Sheets("RESUMO").Range("A8") = "FABRICA??O:" & Fabricacao '& "    " & "VALIDADE:" & Validade 'sistema de corte
        With Sheets("resumo").Range("a8")
           .Font.FontStyle = "regular"
           .Characters(1, InStr(.Value, ":")).Font.Bold = True
          
        End With
        Sheets("RESUMO").Range("B8") = "VALIDADE:" & Validade 'sistema de corte
        With Sheets("resumo").Range("B8")
           .Font.FontStyle = "regular"
           .Characters(1, InStr(.Value, ":")).Font.Bold = True
        End With
        Sheets("resumo").Range("A1:b8").Copy    'GUIA "IDENTIFICACAO"
    
        Sheets("COD BARRAS").Activate                'GUIA "IMP"
        
        For ik = 1 To Qtde
        
       Sheets("COD BARRAS").Cells(Lin, Col).Select   'GUIA "IMP"
      ' Sheets("COD BARRAS").Cells(Lin, Col).Select        'GUIA "IMP"
       Sheets("COD BARRAS").Pictures.Paste              'GUIA "IMP"
            
            Col = Col + 2
            If Col = 5 Then
                Lin = Lin + 1
                Col = 1
            End If
        Next ik
    Next i
    
    
'    For ik = 1 To Qtde
'
'       Sheets("COPIAS QUADROS").Cells(Lin, COL).Select     'GUIA "IMP"
'       'Sheets("COPIAS QUADROS").Cells(Lin, COL).Select        'GUIA "IMP"
'       Sheets("COPIAS QUADROS").Pictures.Paste              'GUIA "IMP"
'
'            COL = COL + 1
'            If COL = 4 Then
'                Lin = Lin + 1
'                COL = 1
'            End If
'        Next
'    Next
    
    
    
    
    
    
  'Unload UserForm1
  
Application.ScreenUpdating = True

ActiveWindow.SelectedSheets.PrintPreview
'ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
'Sheets("CAD BARRAS").Select
'End Sub

End Sub