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/