There's something very wrong if you can't do:
ActiveWorkbook.SaveAs Filename:=Range("B7").Value & ".xls"

This works fine on my computer.

Does the same crashing happen with a fresh workbook?


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Brianne " wrote in message
...
Hope someone can help me with this. My attempts have been
less then perfect to say the very least.

To summarize, I have a worksheet which I would like to save
based on the contents residing in a particular cell.

I have tried every method I could find based on my searches
here and on other sites.

Here are the examples of what I have tried so far:

ActiveWorkbook.SaveAs Filename:=Range("B7").Value & ".xls"

= = = = = = = = = = = = = = = = = =
= = = = = = = = = = = = = = = = = =

Sub SaveFileAsCell()
Dim strFileName As String
strFileName = Range("B7").Value & ".xls"
ActiveWorkbook.SaveAs strFileName
End Sub

= = = = = = = = = = = = = = = = = =
= = = = = = = = = = = = = = = = = =

Sub SaveFileAsCell()
Dim strFileName As String
strFileName = Range("B7").Value & ".xls"
ActiveWorkbook.SaveAs Filename:=strFileName
End Sub

= = = = = = = = = = = = = = = = = =
= = = = = = = = = = = = = = = = = =

ActiveWorkbook.SaveAs Filename:=Sheets("Sheet1").Range("B7").Value &
".xls"

= = = = = = = = = = = = = = = = = =
= = = = = = = = = = = = = = = = = =

ActiveWorkbook.SaveAs Filename:= Activesheet.Range("B7")

= = = = = = = = = = = = = = = = = =
= = = = = = = = = = = = = = = = = =

ActiveWorkbook.SaveAs Range("B7").Value & ".xls"

= = = = = = = = = = = = = = = = = =
= = = = = = = = = = = = = = = = = =

ActiveWorkbook.SaveAs ActiveWorkbook.Sheets("Sheet1").Range("B7") &
".xls"

= = = = = = = = = = = = = = = = = =
= = = = = = = = = = = = = = = = = =

None of the the examples I listed above have worked at all. In
fact, not only do they not work, but all of them have crashed Excel.

My worksheet works fine up to the point where I try to include
any of the code I just listed. I wouldn't think it's a question of
a problem with the file name either. I'm not using an illegal
characters as part of the file name and the name is only 6
characters long.

Anyone have any ideas of something I could try which actually
works?

Thank you,

Brianne


---
Message posted from http://www.ExcelForum.com/