Saving excel tabs in to seperate workbooks

[MOORED]

Hi i am new in here and also very new to VBA so I am doing a little self training and course but could do with some help quickly.

I am looking for some code to save only the visible tabs in a workbook separately but I would like to name the file as the text in a cell

e.g.

I have two tabs invoice and credit in a work book
I would like to run the macro to save each to a folder and name it with the contents of cell A1Hope the above makes sense I would appreciate any help

D

 

[Fluff]

Hi & welcome to the board
Is this what you're after

Sub SaveShts()

    Dim Ws As Worksheet

Application.ScreenUpdating = False

    For Each Ws In Worksheets
        If Ws.Visible Then
            Ws.Copy
            ActiveWorkbook.SaveAS "[COLOR=#ff0000]C:\Users\Fluff\Desktop\test\[/COLOR]" & Range("A1").Text, 51
            ActiveWorkbook.Close
        End If
    Next Ws

End Sub

Change the part in red to match your file path

 

[MOORED]

Hi

many thanks for your time and your reply,

I am on a steep learning curve


I run the code and it saves the first worksheet with text "A1"
then it tries to save the second sheet but says the file already exists (it is using A1 on the first worksheet again rather than the A1 from the second worksheet

again any help would be appreciated

 

[Fluff]

OK, try this

Sub SaveShts()

    Dim Ws As Worksheet

Application.ScreenUpdating = False

    For Each Ws In Worksheets
        If Ws.Visible Then
            Ws.Copy
            ActiveWorkbook.SaveAS "C:\Users\Fluff\Desktop\test\" & Ws.Range("A1").Text, 51
            ActiveWorkbook.Close
        End If
    Next Ws

End Sub

 

[MOORED]

Perfect, Again thank you for your help

 

[Fluff]

Glad to help & thanks for the feedback