little help with code please.... lenze?

[dandetroit]

I am a novice at code and need a little help to complete the code below. Please indicate what information I need to fill in to complete the code. Thank you! PS... I don't need to password protect.


Sub NameBook()

Dim MyName
MyName = ActiveCell.Text

ActiveWorkbook.SaveAs _
FileName:="C:\MyFolder\" & MyName, _
FileFormat:=xlNormal, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False

End Sub

 

[gnaga]

Sub Save_Book()

Dim MyName

MyName = Activecell
FileName = "C:MyFolder" & MyName
ActiveWorkBook.SaveAs (FileName)

End Sub

Try this code

GNaga

 

[lenze]

On 2002-09-17 07:26, dandetroit wrote:
I am a novice at code and need a little help to complete the code below. Please indicate what information I need to fill in to complete the code. Thank you! PS... I don't need to password protect.


Sub NameBook()

Dim MyName
MyName = ActiveCell.Text

ActiveWorkbook.SaveAs _
FileName:="C:\MyFolder\" & MyName, _
FileFormat:=xlNormal, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False

End Sub

The code here will save the file with the name of the contents of the active cell. You need to change MyFolder to the directory you use on your computer. If you will always have the desired name in the same cell, say $A$1, then you can subsititute ActiveCell.Text with Range("$A$1")

The second sub I posted will negate the need to hard code a directory and will prompt for one when you save using the macro. Note: neither code runs when you select save on the menu bar. you must actively run the macro from the Macro menu or from a custom button or shortcut key.

HTH