VBA to Update Excel Workbook Properties

Hi Everyone,

Currently my function is giving all sorts of errors when I try to update the properties (Status).

Code:

---

Function XclPropertiesUpdt (wb as string, upcond as string)

Dim wbk as Workbook

Select Case upcond

Case "Activate"
Workbooks.CheckOut (wb)
Set wbk = Workbooks.Open(wb)
wbk.ContentTypeProperites("Status").Value = "Active"
wbk.CheckIn Ture, "Changed report status"

Case "Decommission"
Workbook.CheckOut(wb)
Set wbk = Workbooks.Open(wb)
wbk.ContentTypeProperties("Status").Value= "Decommission"
wbk.CheckIn True, "Changed to report to be decommissioned"

End Select

End Function

---

I would appreciate any help that you can provide. Thanks.

Without going into detail and testing the code, a couple of bits I notice from reading:

True not looking good

Code:

---

wbk.CheckIn Ture, "Changed report status"

---

Missing the s on the second CheckOut

Code:

---

Workbooks.CheckOut wb

---

Quote:

---

Properites

---

I think it's more a spectacles issue.
See: https://www.specsavers.com/

What a spectacle, indeed (embarrassed). I have been looking at this far too long but not good enough. Thank you guys.