MyErr = Err
On Error GoTo 0
If MyErr <> 0 Then
MsgBox "You press Cancel, this procedure will now terminate."
Exit Sub
End If
This never executes when I click cancel?

Maybe I am missing something obvious or am just plain vanilla dumb, but what does On Error GoTo 0 do?

By adding a Dim Selectedarea As Range I do however raise a error # 424 (Object Required), whereas before I got error # 13 (Type Mismatch). Perhaps trapping for that error will be enough for when Cancel is clicked.

But when I leave the inputbox empty or enter some string, I see message (see the attached picture). No idea what's going on there....