Sub import()
yn = MsgBox("Import data?", vbYesNo)
If yn = vbYes Then
'do something
End If
End Sub