probleem met opgeslagen bericht

[rontermaat]

Heren

ik heb een probleem deze code werkt perfect.

Ik heb deze code van een ander forum onderwerp gepakt.
ik heb een probleem deze code werkt perfect.

Private Sub OPSLAAN()
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
[A1:AQ33].Copy
Workbooks.Add
With Selection
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
End With
For Each Sh In Worksheets
If Sh.Index > 1 Then
Sh.Delete
End If
Next
With ActiveWorkbook
.SaveAs "H:\*****\Ron\****\****\" & [K2].Value & ".xls"
.Close
End With
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
MsgBox "Werkblad opgeslagen"
End Sub

Maar zodra ik het opgeslagen bestand open Neemt hij de standaard grote aan van de cellen en niet de grootte zoals ik hem opgeslagen heb.

Wat zie ik over het hoofd.
Moet het een andere bestand worden.

Alvast weer bedankt

 

[rontermaat]

Is er een code waardoor het bestand opgeslagen word met de juiste opmaak.
en kan ik die gebruiken

 

[Warme bakkertje]

Private Sub OPSLAAN()
With Application
    .ScreenUpdating = True
    .DisplayAlerts = True
    Sheets("Blad1").Copy 'Wijzig in de juiste bladnaam
    For Each Sh In Worksheets
        If Sh.Index > 1 Then
            Sh.Delete
        End If
    Next
    With ActiveWorkbook
        .SaveAs "H:\*****\Ron\****\****\" & [K2].Value & ".xls"
        .Close
    End With
    .ScreenUpdating = True
    .DisplayAlerts =True
End With
MsgBox "Werkblad opgeslagen"
End Sub

 

[rontermaat]

Bedankt helemaal top