VBA import fra excel til andet excel ark.

Hej folk.

Jeg er ved at samle alle mine regneark (1stk pr.dag) over i et nyt regneark, hvor jeg benytter et vba import script. Dette fungerer egentlig fint nok (tror jeg :D), i og med at den henter alle filer i en mappe, og laver nye faneblade med den pågældende fils navn. Dog har jeg det problem at den henter alt, både formatering, værdi, billede, etc., hvilket giver mig nogle regneark på 70mb (som tager en krig at åbne og gemme :D).

Jeg tænkte på om det var muligt at lave et script, således at jeg kun henter værdi uden formatering, da det bare er rådata jeg skal bruge.

Det skal lige siges at alle regneark er låst og beskyttet for ændring af formatering, og jeg syns det er dumt at skulle u-beskytte og låse alle ark op manuelt, for at låse dem igen når jeg er færdig med import.

Jeg har benyttet koden i bunden af dette indlæg.
Er der nogen der kan give mig en smartere måde? :D

------
Sub CopySheet()
Dim basebook As Workbook
Dim mybook As Workbook
Dim i As Long
    Application.ScreenUpdating = False
    With Application.FileSearch
        .NewSearch
        .LookIn = "P:\lalala\2011\01 Januar"
        .SearchSubFolders = False
        .FileType = msoFileTypeExcelWorkbooks
        If .Execute() > 0 Then
            Set basebook = ThisWorkbook
            For i = 1 To .FoundFiles.Count
                Set mybook = Workbooks.Open(.FoundFiles(i))
                    mybook.Worksheets(1).Copy after:= _
                    basebook.Sheets(basebook.Sheets.Count)
                    ActiveSheet.Name = mybook.Name
                mybook.Close
            Next i
        End If
    End With
    Application.ScreenUpdating = True
End Sub