What is runtime error 424

[ghrek]

Hi

I have the following macro assigned to a button and when I open it in read/write it comes up with runtime error 424 Object required.

Any ideas? I need is so when someone else tries top open when already open comes up with a message box "READ ONLY"

Sub OPENOS()

Workbooks.Open Filename:= _
"\\LO-NAS01\Passenger Accounts\SHARED\passacc\Excel\passacc\os2020.xlsm" _
, UpdateLinks:=0

If Wb.ReadOnly Then
MsgBox "THIS FILE IS READ ONLY"

End If
End Sub

 

[JoeMo]

You need to define Wb before you use it. Assuming Wb is the workbook you are opening try:

Sub OPENOS()
Dim Wb as Workbook
set Wb = Workbooks.Open Filename:= _
"\\LO-NAS01\Passenger Accounts\SHARED\passacc\Excel\passacc\os2020.xlsm" _
, UpdateLinks:=0

If Wb.ReadOnly Then
MsgBox "THIS FILE IS READ ONLY"

End If
End Sub

 

[ghrek]

Sub OPENOS()
Dim Wb as Workbook
set Wb = Workbooks.Open Filename:= _
"\\LO-NAS01\Passenger Accounts\SHARED\passacc\Excel\passacc\os2020.xlsm" _
, UpdateLinks:=0

If Wb.ReadOnly Then
MsgBox "THIS FILE IS READ ONLY"

End If
End Sub

Thanks but im getting Compile error Syntax error. It defentally a workbook im trying to open

 

[ghrek]

One other thing is im trying to open a macro enabled workbook does that make any difference?

 

[JoeMo]

Thanks but im getting Compile error Syntax error. It defentally a workbook im trying to open

Most likely there's some error in the path. Can't help you with that.

 

[ghrek]

you mean in path as where its looking for the file?

 

[Fluff]

You need to put the filename in brackets

Set Wb = Workbooks.Open(FileName:= _
"\\LO-NAS01\Passenger Accounts\SHARED\passacc\Excel\passacc\os2020.xlsm" _
, UpdateLinks:=0)

 

[ghrek]

Cheers Fluff

 

[Fluff]

Glad we could help & thanks for the feedback.