Button to MsgBox help plz!

[IAIPICI]

Hey,

I have designed a button to run a macro which deletes old information when pressed. I wanted to have a vbYesNo MsgBox popup to ask the user if the are sure they wish to delete data. This macro seems to work fine and completes its task but once it is finished I am getting "Object Required" Error.

my code is below:
________________________________________________________
Sub DeleteButton()
Dim Question As Byte, Type1 As Integer
Type1 = vbYesNo + vbcaution + vbDefaultButton2
Question = MsgBox("Are you sure you want to delete the current information from this spreadsheet?", Type1)

If Question = vbYes Then Macro1

If button6.Click Then 'Question'

End If
End Sub
________________________________________________________

As said above the code seems to work fine but I am getting the object required error anyway.

Could someone please tell me what I am doing wrong?

Thanks,

Andrew

 

[Michael M]

I may be misunderstanding but try

Sub DeleteButton()
Dim Question As Byte, Type1 As Integer
Type1 = vbYesNo + vbcaution + vbDefaultButton2
Question = MsgBox("Are you sure you want to delete the current information from this spreadsheet?", Type1)
If Question = vbYes Then Macro1
End Sub

 

[IAIPICI]

Can't belive I didn't try that before!lol. Thanks very much mate, works fine now.

 

[Ruddles]

What's vbcaution? Do you mean vbQuestion or vbExclamation?

 

[IAIPICI]

Yes I realized that after, I was ment to write vbcritical.

 

[Ruddles]

May I suggest that you place the Option Explicit directive at the top of all your code modules in future?

If you do this, VBA will point out any typos of this nature before you get as far as trying to run the code.

Example: imagine if you were looping through some cells aggregating their value in a variable called intTotal and then later you wanted to use the value in that variable and accidentally typed inTotal. It would contain zero and you'd be wondering why. Option Explicit prevents that from happening.