Code now will not run

[EddyStone]

Using Excel on MAC (Latest)
My program worked fine a few days ago. I haven't done anything but now the start up macro fails.
The error is:-
Run Time Error '6'
Overflow

This is the code

Sub MG01Apr57()
Private Sub Workbook_Open()
Dim Ans As String
Ans = MsgBox("Update the Invoice Number", vbYesNo + vbInformation)
If Ans = vbYes Then
With Sheets("Invoice").Range("i6")
.Value = .Value + 1
End With
End If
ActiveWorkbook.Save
End Sub

I get the same error if I select either Y or N to update the Invoice Number.

All help welcome.

 

[EddyStone]

Just tried Joe and it was changing . Dim Ans As String to Dim Ans that solved the problem.

One for future reference for sure, sincere thanks again nice to know that guys like you are around to help us less knowledgable at writing macros

 

[Joe4]

You are welcome. I am glad we were able to figure it out.
Its a little tougher when we are using different versions of Excel, but I took my best guesses and we were able to "hit" on the right one!