Help: converting new sheets to word document

Hi

is there a way to create a macro to automatically save new sheets as a Word document in a specific file

also i have another code that may need help on

ARowbot helped me yesterday with this code which I got to say with his fast response to my post i was very pleased with his/her help and can't say thank you enough

Sub Auto_Quotes()
    Dim MyCell As Range, MyRange As Range
    Dim i As Integer
    
    Set MyRange = Sheets("Summary").Range("A2")
    Set MyRange = Range(MyRange, MyRange.End(xlDown))

Application.ScreenUpdating = False

    For Each MyCell In MyRange
        Sheets("Template").Copy After:=Sheets(Sheets.Count)
            With ActiveSheet
                .Name = MyCell.Value
                .Range("B25").Value = MyCell.Value
                    For i = 0 To 8
                       .Range("G28").Offset(i).Value = MyCell.Offset(, i + 1).Value
                    Next i
            End With
    Next MyCell
    
    
Application.ScreenUpdating = True

End Sub

i have attached a example document of my spreadsheet with the above code added

Example2015 (1).xlsm
but i need to add to it so it copys names and addresses from another sheet at the same time as copying the data from summary is this possible

You're very welcome. Hope this does what you want it to do!

Sub Auto_Quotes()
    Dim MyCell As Range, MyRange As Range
    Dim i, j As Integer
    
    Set MyRange = Sheets("Summary").Range("A2")
    Set MyRange = Range(MyRange, MyRange.End(xlDown))

Application.ScreenUpdating = False

    For Each MyCell In MyRange
        Sheets("Template").Copy After:=Sheets(Sheets.Count)
            With ActiveSheet
                .Name = MyCell.Value
                    For i = 0 To 8
                        .Range("H28").Offset(i).Value = MyCell.Offset(, i + 1).Value
                    Next i
                    For j = 0 To 5
                        .Range("B7").Offset(j).Value = Sheets("Customer_list").Cells(MyCell.Row + 1, j + 1)
                    Next j
            End With

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\arowbottom\Dropbox\Macros\" & MyCell.Value & ".pdf", Quality:=xlQualityStandard _
        , OpenAfterPublish:=False

    Next MyCell
    
Application.ScreenUpdating = True

End Sub