What is setresponse?

Do you have Option Explicit at the top of your module? It will help  you
make sure that everything you're using has been declared.

Also, when you post code, please copy it out of the VB environment. At
least some of this code appears to have simply been typed into the e-mail.

Note that strresponse is defined as variant, not string, because you haven't
given it a type. I recommend that only one item be declared per DIM
statement.

I don't know what "ThisWorkbook.sea = strresponse" is going to do.

You are testing a variable called "ans" but you never seem to set it to
anything. I'd expect that you'd want to set it from your second MsgBox.

Also, you've declared "ans" as a string variable. IIRC vbYes and vbNo are
not string constants.

There are possibly other things wrong with the code too, but I haven't
looked any further.