Sheet name according to file name..!!!

[meus]

Hi friends!!
I am wondering if someone could help me on building a macro whose "Sheet1" name would rename/ change according to it's file name...
Like if i have a file name MEUS, then when i run the macro, my first sheet i.e sheet1 or having any other name should change to the name "MEUS"..
Thanks...

[millz]

You may try this:

Sub RenameSheet()
    Dim s
    s = ActiveWorkbook.Name
    If InStr(1, s, ".xls", vbTextCompare) > 0 Then s = Left(s, InStrRev(s, ".") - 1)
    s = Left(s, 31)
    ActiveSheet.Name = s
End Sub

[meus]

Thanx millz...