Mega Code Archive

 

Categories / VisualBasic Script / Application

 

The custom toolbar is removed with this procedure

Sub RemoveToolBar()     On Error Resume Next     Application.CommandBars("ExcelVBADummies").Delete End Sub Sub Main()   Debug.Print FirstName() End Sub   Function FirstName()        Dim FullName As String        Dim FirstSpace As Integer        FullName = Application.userName        FirstSpace = InStr(FullName, " ")        If FirstSpace = 0 Then            FirstName = FullName        Else            FirstName = Left(FullName, FirstSpace - 1)        End If   End Function