visual Basic / makro

Hej Jeg har en delt dropbox med min kollega samt hjemme pc, jeg har lavet en kode som gemmer, men den vil kun være med hvis jeg skriver mit brugernavn på
er der en som er skrap i dette ?
Sub nextInvoice()
Range("e14").Value = Range("e14").Value + 1
Range("a22:a46").ClearContents
Range("c22:c46").ClearContents
Range("E13").ClearContents
Range("E16").ClearContents
End Sub

Sub saveInvwithneName()
Dim newFN As Variant
'copy Invoice to a new workbook
ActiveSheet.Copy
newFN = "C:\Users\jlindskov\Dropbox\Moba\følgeseddel\" & Range("E13") & " - " & Range("a12") & " - " & Range("E14") & " - " & Range("E15") & " - " & Range("E16").Value & ".xlsx"
ActiveWorkbook.SaveAs newFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
nextInvoice
End Sub