Hallo jvandervliet,

Welkom op Oplossing.be 

De code van Dotchiejack werkt hier prima, zonder foutmeldingen. Kan je de aard van de foutmeldingen opgeven?

Er zit een tegenstrijdigheid in je originele vraag:

In een Excel bestand wil ik een werkblad exporteren naar een nieuw Exel bestand.
Het originele werkblad is factuur.xlsm.

Een werkblad kan "factuur.xlsm" heten, maar dat is niet wat je bedoeld hiermee, of ....

Wat je waarschijnlijk wilt: Dat de macro enkel de Range "A1:F43" van je werkblad "Factuur" (van je werkboek "Factuur.xlsm" ??) exporteert naar Werkblad "Factuur" " in het nieuwe werkboek [Klantnaam in H2].xlsx

SoftAid              

Alleen krijg achter elkaar foutmeldingen.

Hiermee kunnen de helpers natuurlijk niets aanvangen als je er niet bij verteld welke foutmeldingen het zijn.
2de poging
Sub Dotch1()
Application.ScreenUpdating = False
    Set WkSht_bron = ActiveSheet
        Set Rng = WkSht_bron.Range("A1:F43")
            Set WkSht_best = Application.Workbooks.Add
                Set WkSht_best = WkSht_best.Worksheets(1)
                    Rng.Copy WkSht_best.Range("A1")
                Set WkSht_best = Nothing
                WkSht_best.SaveAs Filename:=ThisWorkbook.Path & "\ " & WkSht_bron.Range("H2") & ".xlsx"
                WkSht_best.Close 0
            Set WkSht_best = Nothing
        Set Rng = Nothing
    Set WkSht_bron = Nothing
Application.ScreenUpdating = True
End Sub
Waarom sla je de facturen niet op als PDF?

Mijn fout typo, komt door mijn 16 vingers
Probeer deze eens
Sub dotch()
Application.ScreenUpdating = False
Set WkSht_bron = ActiveSheet
        Set Rng = WkSht_bron.Range("A1:F43")
            Set WkBk_best = Application.Workbooks.Add
                Set WkSht_best = WkBk_best.Worksheets(1)
                    Rng.Copy WkSht_best.Range("A1")
                Set WkSht_best = Nothing
                WkBk_best.SaveAs Filename:=ThisWorkbook.Path & "\ " & WkSht_bron.Range("H2") & ".xlsx"
                WkBk_best.Close 0
            Set WkBk_best = Nothing
        Set Rng = Nothing
    Set WkSht_bron = Nothing
Application.ScreenUpdating = True
End Sub


alleen de breedte van de cellen worden niet meegenomen

Je vraagt, wij draaien.
Sub dotch()
Application.ScreenUpdating = False
Set WkSht_bron = ActiveSheet
        Set Rng = WkSht_bron.Range("A1:F43")
            Rng.Copy
            Set WkBk_best = Application.Workbooks.Add
                Set WkSht_best = WkBk_best.Worksheets(1)
                With WkSht_best.Range("A1")
                    .PasteSpecial xlPasteValues
                    .PasteSpecial xlPasteColumnWidths
                    .PasteSpecial xlPasteFormats
                End With
                WkBk_best.SaveAs Filename:=ThisWorkbook.Path & "\ " & WkSht_bron.Range("H2") & ".xlsx"
                WkBk_best.Close 0
            Set WkBk_best = Nothing
        Set Rng = Nothing
    Set WkSht_bron = Nothing
Application.ScreenUpdating = True
End Sub


Post eens een voorbeeldje, zo schiet dat niet op en waarom sla je de facturen niet op als PDF?
Niet iedereen heeft excel, maar iedereen kan een gratis PDF reader downloaden.

Hier het Excelbestand.