Sub test()

Folder = "C:\temp"
FName = "35.xls"

Workbooks.Open Filename:=Folder & "\" & FName
FNumber = Val(Left(FName, InStr(FName, ".") - 1))
Range("B2") = FNumber

End Sub

"nicolaux" wrote:

Hi All,

I need a simple macro that fill a cell of an excel sheet with some
data that comes from the file name.

Example:

If the file name is 35.xls the cell(B,2) contains the text "35".



Thanks a lot
Nicola