Add `WBAlreadyOpen` to `ExcelBook` function

[BartJan142]

This must be a ByReference boolean variable. Must be changed to True if the WB is already open, and False otherwise.