Click yes on an Excel dialog box

Hi,

I'm using a commercially produced macro (RunDataInterpolateSheet) to pull data from a database. I have no ability to modify this macro. When run, this macro generates a dialog box:

dialog.JPG

I want to run this macro for a number of different columns. I wrote this short script to do that:

Sub RunOneSheet()
    'Application.DisplayAlerts = False
    For i = 5 To 3000
        If Cells(1, i) <> "" Then
            Columns(i).Select
            Application.Run ("ThisWorkbook.RunDataInterpolateSheet")
            'Application.SendKeys "y", True
        End If
    Next i
    'Application.DisplayAlerts = True
End Sub

I need my macro to click the yes button produced by the RunDataInterpolateSheet macro. I have unsuccessfully tried "Application.DisplayAlerts = False" and "Application.SendKeys "y", True". Does anyone know how I can do this?

Thanks,
Mark