Super atoron, help , gracias

saludos , tengo meses creando una factura con nro consecutivos y que la inf
la guarde en otra hoja , todo bien excepto al compartir el libro .. pues
marca conflictos mas detallados:

codigo

Sub yuy()
Sheets("Hoja1").Select
Range("e3:f3").Select
ActiveCell.FormulaR1C1 = "=((MAX(Hoja2!R2C1:R5002C1))+1)*1"
Selection.Copy
Sheets("Hoja2").Select
Worksheets("Hoja2").Range("a50000").End(xlUp) _
.Offset(1).PasteSpecial xlPasteValues
Sheets("Hoja1").Select
Range("E3:F3").Select
Selection.ClearContents
ActiveWorkbook.Save
Range("E3").Select
End Sub

busca el max en hoja 2 y pone el consecutivo y asu vez lo manda a hoja 2 y
save


.. pero al ponerlo como compartido para que varios vendedores lo puedan
abrir al guardar A le pone el consecutivo per ejemplo fact 05, al guardar B
le guarda como factura 05 y la enmmarca con bordes azules,,???

. sugerencias para que al guardar A o B o C mande la info a hoja 2 de
forma consecutiva?? formula o macro ,,, thks