SCRIPT OUT OF RANGE ERROR

[DIVINEDAR0956]

I have the following VB that works just fine except for two causes:

Public Sub EditProjectNumber()
Dim xl As Object
Dim Wb As Object
Dim sht As Object
Set xl = Excel.Application
' If you want Excel to appear, use next line:
xl.Visible = True

xl.Dialogs(xlDialogOpen).Show "C:\Cost"
Set Wb = xl.ActiveWorkbook
Set sht = Wb.Sheets("PROJECT_INFORMATION&quot
End Sub

1. It gives me a SCRIPT OUT OF RANGE
2. When it opens the excel file choosen, the next time you open it, it comes in read-only and says that it's being used by another user. Could this be because I have the workbook as shared .

Thank you. Darlene Sippio
dsippio@comtechsystems.com

 

[mp9]

You're getting the "used by another user" error on the second opening because you're not closing it programmatically one the first run through your code. From memory, something like

xl.Close

or

xl.Quit

at the end of your code may help.

http://www22.brinkster.com/accessory/