Hi
I have a macro that performs a load of formatting to a workbook. At the
end of it i would like to save a copy of it (i.e save as) in a
particular folder. The path will always be the same, but i would like
the user to enter the actual name that the file will be called.

Can someone point me in the right direction for the syntex

Thanks


--
katmando
------------------------------------------------------------------------
katmando's Profile: http://www.excelforum.com/member.php...o&userid=29803
View this thread: http://www.excelforum.com/showthread...hreadid=499331

Hi Katmando,

Try:

'=============
Public Sub Tester()
Dim WB As Workbook
Dim sPath As String
Dim sFilename As String

Set WB = ActiveWorkbook '<===== CHANGE

sPath = "C\MyFolder\" '<===== CHANGE

If Right(sPath, 1) < "\" Then sPath = sPath & "\"

sFilename = InputBox("Please type the new file name")

WB.SaveAs FileName:=sPath & sFilename & ".xls", _
FileFormat:=xlWorkbookNormal
End Sub
'<<=============

---
Regards,
Norman



"katmando" wrote in
message ...

Hi
I have a macro that performs a load of formatting to a workbook. At the
end of it i would like to save a copy of it (i.e save as) in a
particular folder. The path will always be the same, but i would like
the user to enter the actual name that the file will be called.

Can someone point me in the right direction for the syntex

Thanks


--
katmando
------------------------------------------------------------------------
katmando's Profile:
http://www.excelforum.com/member.php...o&userid=29803
View this thread: http://www.excelforum.com/showthread...hreadid=499331

Just what i needed:)

Thank

--
katmand
-----------------------------------------------------------------------
katmando's Profile: http://www.excelforum.com/member.php...fo&userid=2980
View this thread: http://www.excelforum.com/showthread.php?threadid=49933