Workbook sheet change event prompts save

Maybe just this?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If LCase(Right(Sh.Name, 2)) = "sd" Then Me.Save
End Sub