save as desination

[keith.barnes]

Hi Guys

I was recently helped with a problem and thanks to those that helped.

Below is the code that i am now currently using and wish to tweek further.

Sub SaveAsExample()
    Dim FName As String
    Dim FPath As String
    Dim wb As Workbook

    FPath = "F:\quote"
    FName = Sheets("quote").Range("f2").Text
    
    On Error Resume Next
    
    ThisWorkbook.SaveAs Filename:=FPath & "\" & FName
    
    If Err.Number = 0 Then
        MsgBox Range("f2").Value & " has been saved", , ""
    Else
        MsgBox "Save was cancelled.", , ""
    End If
    
    On Error GoTo 0
End Sub

Question, can the " FPath = "F:\quote"" be the value of a cell within the workbook but located on another sheet.

Thanks in advance.

PS, i may not have got the hang of code tags so i need help with that as well.

Regards

Keith

[6StringJazzer]

Yes you can do something like this:

FPath = Worksheets("Another Sheet").Range("A1")

P.S. Your initial code tag was [/code] but it needs to be [code]. I corrected it.