VBA code cel inhoud toevoegen aan werkblad naam.

[marka]

Goedenmiddag,

Ik heb een VBA code gevonden om mijn werkbladen in mijn sheet te splitten.

Wat ik echter nog zou willen is dat deze de inhoud van de cel van werkblad A en cel A1 toevoegd aan de naam bij het splitten van het bestand.
Hoe krijg ik dat voor elkaar?

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[emields]

En waar is uw werkblad A

 

[marka]

In dezelfde file als mijn VBA code staat.

 

[edmoor]

Probeer dit eens:

Sub Splitbook()
    [COLOR="#008000"]'Updateby20140612[/COLOR]
    Dim xPath As String
    Dim xName As String
    
    xPath = ActiveWorkbook.Path
    xName = ActiveWorkbook.Sheets("A").Range("A1").Value
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    For Each xWs In ThisWorkbook.Sheets
        xWs.Copy
        ActiveWorkbook.SaveAs xPath & "\" & xWs.Name & "_" & xName & ".xlsx", 51
        ActiveWorkbook.Close False
    Next
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

 

[marka]

Dank je wel is gelukt!