?Excel: How to SaveAs workbook as SHARED?

Esteemed Forum Participants and Lurkers:

I have a requirement to save a set of macro generated Excel single-sheet workbooks as SHARED workbooks. I don't have any problem at all saving the required files ... I just don't know how to set the SHARED property.

Here is what I have so far:
ActiveWorkbook.SaveAs _
fileName:=myPath & myName, _
FileFormat:=xlNormal, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False

I tried to record a macro to save a SHARED file, but this is not allowed. The macro gets closed and does not reveal any information about saving as Shared. I of course rummaged throug my reference books and did a search on this forum, all to no avail.

Thank you for any and all comments, suggestions, and
assistance.

To save a workbook as a shared workbook.

VB Code:

[i]expression[/i].SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, [b]AccessMode[/b], ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
 
[b]AccessMode[/b]   optional XlSaveAsAccessMode.
 
XlSaveAsAccessMode can be one of these XlSaveAsAccessMode constants. 
xlExclusive (exclusive mode) 
xlNoChange default (dont change the access mode) 
xlShared (share list) 
If this argument is omitted, the access mode isnt changed. This 
argument is ignored if you save a shared list without changing 
the file name. To change the access mode, use the ExclusiveAccess method.
 
Example:
Workbooks("Book1.xls").SaveAs "C:\MySharedWorkBook.xls", , , , , , xlShared

HTH

Thanks RobDog ...

I don't know how I missed that in the Help Heap. I guess I read it too quickly.

No prob.

:)