export excel + diverse

1:
jeg \"kører\" nedenstående script.
Kan jeg ikke definere at de exporterede excelark formatteres efter kolonnebredde samt at skriftstørrelsen på disse xlsark er 7.

2:
som det fremgår af scriptet skal en text53 blive synlig ved kørsel samt blive u-synlig ved afslutning
hvorfor gør den ikke det.. ( egenskaben for denne text53 er sat til visible=false). JEg har også prøvet at gøre den visible=false ved load af formular og så lade egenskaben være visible=true, men ligemeget hjælper det.
( det virker dog såfremt jeg kører en F8)


How..???

Private Sub Command51_Click()
MkDir \"c:\\Top-10\"
Text53.Visible = True
Dim db As Database
Dim rs As Recordset
Dim rs1 As Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset(\"tblBranch\")

DoCmd.SetWarnings False

DoCmd.RunSQL \"Delete * from top10\"

Do While Not rs.EOF

DoCmd.RunSQL \"INSERT INTO top10 SELECT TOP 10 [gr all down].* FROM [gr all down] WHERE [gr all down].[branch nr] = \'\" & rs!BranchNr & \"\'\"
DoCmd.RunSQL \"INSERT INTO top10 SELECT TOP 10 [0-sale 3mth_gr all].* FROM [0-sale 3mth_gr all] WHERE [0-sale 3mth_gr all].[branch nr] = \'\" & rs!BranchNr & \"\'\"
DoCmd.RunSQL \"INSERT INTO top10 SELECT TOP 10 [0-sale 6mth_gr all].* FROM [0-sale 6mth_gr all] WHERE [0-sale 6mth_gr all].[branch nr] = \'\" & rs!BranchNr & \"\'\"
DoCmd.RunSQL \"INSERT INTO top10 SELECT TOP 10 [all group stock greater 3 mth sale].* FROM [all group stock greater 3 mth sale] WHERE [all group stock greater 3 mth sale].[branch nr] = \'\" & rs!BranchNr & \"\'\"
DoCmd.RunSQL \"INSERT INTO top10 SELECT TOP 10 [all group stock greater 6 mth sale].* FROM [all group stock greater 6 mth sale] WHERE [all group stock greater 6 mth sale].[branch nr] = \'\" & rs!BranchNr & \"\'\"

rs.MoveNext
       
Loop

DoCmd.SetWarnings True

Dim rs2 As Recordset
Dim sSQL As String
Dim MyQry As QueryDef

    Set db = CurrentDb
    Set rs = Nothing
    Set rs2 = db.OpenRecordset(\"tblBranch\")
rs2.MoveFirst
   
    DoCmd.SetWarnings False
   
    Do While Not rs2.EOF
           
        sSQL = \"SELECT [Qtop10].* FROM [Qtop10] WHERE [Qtop10].[branch nr] = \'\" & rs2!BranchNr & \"\'\"

        \'Create a new querydef
        Set MyQry = db.CreateQueryDef(rs2!BranchNr)
        MyQry.SQL = sSQL
       
        MyQry.Close
       
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, rs2!BranchNr, \"c:\\top-10\\Branch no_\" & rs2!BranchNr & \".xls\", True, \"\"
       
        db.QueryDefs.Refresh
        db.QueryDefs.Delete rs2!BranchNr
           
        rs2.MoveNext
       
    Loop
   
    DoCmd.SetWarnings False
    Text53.Visible = False
End Sub