message box close

[TiTuS]

Is it possible to close a popup using the text that is in it as the paremeter... i get a meesage poping up sometimes when doing a refresh of my queries... is there anyway to make a code so if a msg box appears with certain writing in it, it automatically shuits?
and also a command so if it detects that message box opening then it also trigures the refresh all comand or something after clossing

 

[Haluk]

Try something like this;

Sub Test()
    Dim MyMsg1 As String, MyMsg2 As String
    MyMsg1 = "Wait for 2 seconds...."
    MyMsg2 = "Normal MsgBox"
    '
    'some code here to select the msg text...
    'change the below line to strMsg = MyMsg2 to see the effect
    '
    strMsg = MyMsg1
    '
    '
    If strMsg = MyMsg1 Then
        Set WshShell = CreateObject("WScript.Shell")
        x = WshShell.Popup(strMsg, 2, "Test")
    Else
        MsgBox strMsg
    End If
End Sub

 

[TiTuS]

ok so this is the text in the message box "The Web query returned no data. To modify the query, click OK, click the name of the external data range in the name box on the formula bar, and then click Edit Query on the External Data toolbar." (excluding the brackets) so i just type that in under "Sub Test()
Dim MyMsg1 As String, MyMsg2 As String
MyMsg1 = "Wait for 2 seconds...."
MyMsg2 = "Normal MsgBox"
??

or does it need something to go witth it.... note the message i want to stop is not one ive created its a "!" message from excel... will that change this from working on clossing it?

 

[Haluk]

Well, what I've understood from your first message was not the one, described in your last message.

So, better ignore my message ...