VBA Error: End IF without Block IF

I have made this simple code which replaces an empty cell with "Empty" on a button.

Sub Button1_Click()
If Range("A1") = "" Then Range("A1") = "Empty"
End If
End Sub

But when I run it I get the error message "End IF without Block IF"

Spreadsheet attached.
Can anyone understand why - Can anyone help?