Saving an Workbook/File as a Cell Text

I'm using your code......

Sub SaveAsCell()
Dim strName As String


On Error GoTo InvalidName
    strName = Sheet1.Range("B32")
    ActiveWorkbook.SaveAs strName
    
Exit Sub
InvalidName: MsgBox "The text: " & strName & _
        " is not a valid file name.", vbCritical, "Ozgrid.com"
End Sub

but the first time I run it I get the InvalidName message but all other times after that it works OK. Would you have any idea why this is?

Re: Saving an Workbook/File as a Cell Text

No, it is different to start with.

Re: Saving an Workbook/File as a Cell Text

I think it must be something to do with the system at work as I sent the spreadsheet home and it worked fine on my PC and laptop.

I had also been getting errors such as ,"cannot find project" and "error accessing system registry" at so I think the problem is with Excel at work. I cannot copy a worksheet from the spreadsheet (although I can with new spreadsheets) at work either so I'll have a word with someone about reloading Excel onto the PC and see if it makes a difference.