Can anyone tel my why this proceedure or command is not available in a
shared workbook, it seems straight forward enough, just cant work out
the bugs,

hope you can help

Simon

Sub Auto_open()

Dim t1 As String

Dim I2 As Integer

For I2 = 1 To 3
t1 = InputBox("Enter Your GBK Login", "Login Verification",
"")
If t1 = "gbksxl04" Or t1 = "gbkdxb02" Or t1 = "gbkmxg04" Or t1
= "gbkaxp02" Or ti = "gbkbxs03" Then
ActiveCell = t1
Call startup
Exit Sub
Else
Worksheets("gbk track").Visible = True
Worksheets("gbk track").Select
ActiveSheet.Range("a2").Select
Selection.Insert Shift:=xlDown
Selection = t1
Worksheets("gbk track").Visible = False
End If
Next

MsgBox "Please try again " & Chr(13) & "Entry not recognised " &
t1

ActiveWorkbook.Save
ActiveWorkbook.Close


End Sub


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=374868