Modify code to all worksheets

Sub Importere_filer()

Dim mnthNum As Integer
Dim myBook As Workbook
Dim myRows As Long
Dim i As Integer

With Application
    .DisplayAlerts = False
    .EnableEvents = False
    .ScreenUpdating = False
End With
 
With Application.FileSearch
    .NewSearch
    'Change this to your directory
    On Error GoTo ErrHandler:
    .LookIn = "H:\div\"
    .SearchSubFolders = False
    .Filename = "*.txt"
    If .Execute() > 0 Then
    
    'Create the missing worksheets:
    If ActiveWorkbook.Sheets.Count < .FoundFiles.Count Then
        For i = ActiveWorkbook.Sheets.Count To .FoundFiles.Count - 1
            Sheets.Add
        Next i
    End If
    
        For i = 1 To .FoundFiles.Count
            Workbooks.OpenText .FoundFiles(i), , , xlDelimited, , , , True
            Set myBook = ActiveWorkbook
            myRows = ThisWorkbook.Worksheets(i).Range("A65536").End(xlUp).Row + 1
                ActiveSheet.UsedRange.Copy _
                ThisWorkbook.Worksheets(i).Cells(myRows, 1)
                myRows = myRows + 1
            myBook.Close
         Next i
    End If
 
ErrHandler:
End With
 
With Application
    .DisplayAlerts = True
    .EnableEvents = True
    .ScreenUpdating = True
End With
 
End Sub