Hi all,

Can anyone explain why my code isn't working below? Upon the first instance of the user clicking 'Save' I want a MsgBox to appear. All subsequent saves this should then not appear. I thought the below code would do it:

Sub Workbook_AfterSave(ByVal Success As Boolean)

Dim SavedAlready As Boolean

    If SavedAlready = True Then
            
        Exit Sub
       
    ElseIf SavedAlready = False Then
            
            If Range("A1").Value > 0 Then
                SavedAlready = True
                MsgBox "Saved"
            End If
   
    End If

End Sub