Visual Basic

Private Sub Workbook_Open()
Range("AK4").Value = ThisWorkbook.Name
End Sub

output:F28900035.xls

Dim str as String
str=ActiveCell.Value 'this contains the output 

Range("A2").Value=Replace(str,".xls","",1)   'this will show F28900035

' Makes sure all variables are dimensioned in each subroutine.
     Option Explicit

     ' Access the GetUserNameA function in advapi32.dll and
     ' call the function GetUserName.
     Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
     (ByVal lpBuffer As String, nSize As Long) As Long

     ' Main routine to Dimension variables, retrieve user name
     ' and display answer.
     Sub Get_User_Name()

     ' Dimension variables
     Dim lpBuff As String * 25
     Dim ret As Long, UserName As String

     ' Get the user name minus any trailing spaces found in the name.
     ret = GetUserName(lpBuff, 25)
     UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

     ' Display the User Name
     ActiveCell.Value=UserName
     End Sub

vijay2482 wrote:

I will use google before getting into the forum.

thatraja |Chennai|India|

---

Brainbench certifications
Down-votes are like kid's kisses don't reject it
Do what you want quickly because the Doomsday on 2012

Catch exp As Exception
                   MsgBox("The Database is used by Ariane. Easy ECN will exit Ariane now.")
                   Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("db2krun")
                   For Each p As Process In pProcess
                       p.Kill()
                   Next