Hvorfor fylder min fil 30 Mb ? ? ?

Jeg tror at je har fundet svaret!!

Jeg har en makro som opretter en mappe på et drev, mappen navngives på baggrund af de intsatet oplysninger i arket.
Efter følgende regl:
Tilbudsnr kunde - Projekt, bemærkning

Mappe teksten frembringes således, og værdien fremgår i kolonne Q:
=CONCATENATE(A11;"  ";D11;" - ";F11;", ";G11)

(Denne "conatenate" funktion optrædder i alt ca. 700 gange = stor data mængde)

Teksten i celle Q for den spicifikke række skal kun benyttes når følgende makro aktiveres:
--------------------------
Sub Opret_tilbuds_mappe()
'
' Opret_tilbuds_mappe Macro
'Private Sub Opret_mappe()


Dim home As String
home = ActiveCell.Address

Const myFolder As String = "F:\Tilbud\Afdeling 262\2010\"

On Error Resume Next
'henter værdi i celle Q
MkDir myFolder & ActiveCell.Offset(0, 16).Value

If Err.Number > 0 Then
 
  MsgBox "Den ønskede mappe findes allerede ", , "fejl"
'  MsgBox "Den ønskede mappe findes allerede " & Err.Description

End If
On Error GoTo 0


Range(home).Select

End Sub

--------------------------

Kan man ikke indskrive sammenkædningsfunktionen i linjen
MkDir myFolder & ActiveCell.Offset(0, 16).Value ??