Macro to move data if someone says yes to amessagge box?

[tonywatsonhelp]

Hi Everyone,

Got a simple one that got me a bit.

I have two sheets

Sheet1 is called DATA1
Sheet2 is Data2

So all I want to do is have a macro that when I run it a message Box ask me "Do you want to copy data to Data2?"

If I answer Yes
Data1 D5 goes to Data2 d5 and Data1 H6 Goes to Data2 H6

If I say No Data2 d5 = "" Data2 H6 =""

if I click Cancel Nothing changes.

Please help if you can

Tony

 

[mikerickson]

Select Case MsgBox("Do You Want To Copy", vbYesNoCancel)
    Case vbYes
        Sheets("Data2").Range("D5").Value = Sheets("Data2").Range("D5").Value
        Sheets("Data2").Range("H6").Value = Sheets("Data2").Range("H6").Value
    Case vbNo
        Sheets("Data2").Range("D5").Value = vbNullString
        Sheets("Data2").Range("H6").Value = vbNullString
    Case Else
End Select

 

[tonywatsonhelp]

Thank you, exactly what I wanted