Use cell value as filename (2003)

Topic

New Reply

I am creating a form that is going to be used to grade exams and while it is easy to save the file using a macro, I have not figured out how to grab the students name from a cell and save the file as that person’s name. Is there a way to do this? Thanks

Reply | Quote

Replies

Say that the student name is in cell A1. The following instruction will save the workbook with the name from A1, followed by .xls:

ActiveWorkbook.SaveAs Range(“A1”)

Reply | Quote

I like this, but I need to have it go to a network location. i.e.

ActiveWorkbook.SaveAs Filename:= _
“monorailc$<>”, FileFormat:=xlNormal, _

so I do I place the range at this location?

Reply | Quote

Try

ActiveWorkbook.SaveAs "monorailc$" & Range("A1"), ...

Reply | Quote

Thanks Hans, that worked. At first I left it on the A1 cell and I got a runtime error, then when I realized that there was nothing in that cell (oops) and changed it to the one it should be, it became B E A utiful!

Thanks again

Reply | Quote

You could build in a check. Say that you’re using cell B37:

If Range(“B37”) = “” Then
Range(“B37”).Select
MsgBox “Please enter your name!”, vbExclamation
Else
ActiveWorkbook.SaveAs “monorailc$” & Range(“B37”), …
End If

Reply | Quote