Hello
I have a excel template file "pic.xlt" and every time I input a new data into it I need to save it as sequential .xls file ie pic1.xls then pic2.xls and next time pic3.xls etc. I would like put this code into my macro so user would not have to name file durring saving.
Please advise how can I do it
Thanks
John

Following could be helpful

' ----START MACRO ----

Private Sub SaveMacro()
    Dim i As Integer
    Dim str As String
    
    Do
        i = i + 1
    ' str = <path>Pic1.xls to <path>Pic10000.xls
    ' ThisWorkbook.Path is the current path of the workbook
        str = ThisWorkbook.Path & "Pic" & CStr(i) & ".xls"
    ' Bbefore file is saved there is NO path set default here
        If Left(str, 1) = "" Then str = "G:" & str
        If Dir(str) = "" Then
            ThisWorkbook.SaveAs str
            str = "<FS>"
        End If
    Loop Until i >= 32000 Or str = "<FS>"
End Sub

' ---- END MACRO ----