File name in cell

[sukumar.vb]

In VBA, how can we write file name excluding extension of file?

[omp001]

Hi.
Can it be by a UDF?

Function MyName() As String
MyName = ThisWorkbook.Name
End Function
in a blank cell type =MyName()

[Bob Phillips]

Left$(Activeworkbook.Name,InstrRev(Activeworkbook.Name,".")-1)

[sukumar.vb]

Worksheets("Sheet1").Range("A1").Value = Workbooks("C:\Work.xls").Worksheets("Sheet1").Range("A1").Value



This program gave an error :
Subscript out of range.

What is your opinion?

[Bob Phillips]

My opinion? What does this have to do with the question you first asked?

[sukumar.vb]

My opinion? What does this have to do with the question you first asked?

Sorry, I should have posted it as a new post.

[Kenneth Hobs]

Worksheets("Sheet1").Range("A1").Value = _
CreateObject("Scripting.FileSystemObject").GetBaseName(thisworkbook.FullName)