Sub EE_SaveIfMe(strUserName As String)
'Takes a username as string
'Looks to see if application.username or ee_getusername is the string..
'If yes, save the workbook.

'http://excelexperts.com/xla-routines-eeSaveIfMe    for updates on this sub routine

    Select Case strUserName
    Case Application.UserName, EE_GetUsername
        ThisWorkbook.Save
    End Select
End Sub