Sub test()
MsgBox Application.Workbooks.Count
End Sub

Note that addins are not part of the visible workbooks collection.

HTH. Best wishes Harald

"Ronaldo" skrev i melding
...
I need some VBA code to check how many workbooks are open at the same
time.
Can anyone help, please.

Thanks