Code to add message box

Greetings, All.

What line of code would I need to add to the Save As code below to make a message box pop up that says "Your file has been saved as "whatever the filename is""? (The code saves the file as a filename based on the contents of a cell, I want the box to tell the user the name and location of the file.)

Sub Save_As()
    ThisFile = Range("H18").Value
    ChDir "C:\(Local) Supplier Development Mirror\(PO Response Forms)"
    ActiveWorkbook.SaveAs Filename:=ThisFile
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Thanks in advance for any help.

Hi there,

The information you need is within the VBA ThisWorkbook.FullName script. Knowing that, here's (hopefully) what you're after:

Sub Save_As()

'Declare variables
Dim intStringLen, intMidPos As Integer

    ThisFile = Range("H18").Value
    ChDir "C:\(Local) Supplier Development Mirror\(PO Response Forms)"
    ActiveWorkbook.SaveAs Filename:=ThisFile
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

'Set variables
intStringLen = Len(ThisWorkbook.FullName)
intMidPos = InStrRev(ThisWorkbook.FullName, "\")
    
'User message
MsgBox "Your file has been saved as " & _
Mid(ThisWorkbook.FullName, intMidPos + 1, intStringLen - (intMidPos + 4)) & _
" in the " & _
Left(ThisWorkbook.FullName, intMidPos) & _
" directory.", vbInformation, "Save As Editor"
    
End Sub

HTH

Robert

Thank you, Robert.

I didn't expect it to be anything nearly as involved. I don't know anything about variables, but I guess that's why I'm posting questions and you're posting answers.

Have a good one.

What if I just want the message box to read:

"Your file has been saved as (Cell H18.value)"

The last part being, or course, the actual value of cell H18, and without the parenthesis.

Not worried about the directory, as it is hard coded and won't change.

Can I do this by just adding one line of code?

Never mind. I got it.

It did only take one line of code, like this.

MsgBox "Your file has been saved as " & Range("H18").Value

Thanks.