Unable to get the Show property...

[Asrampd]

I recorded a macro doing what i wanted and it worked fine (just the once) - now in get the following error...

Sub ImportData()
'
' Go to the All points sheet
' Select A1
' Start wizard to import text file
'
Dim retval As Boolean
Sheets("All points List").Select
Columns("A:Q").Select
Selection.ClearContents
Range("A1").Select
ChDir "C:\Bas\Data\"
retval = Application.Dialogs(xlDialogImportTextFile).Show
End Sub

"Run-time error 1004
Unable to get the Show property of the Dialog class !

I have tried adding On error resume next but to no avail

Ta.

 

[Tinbendr]

Try this.

Sub ImportData()
'
' Go to the All points sheet
' Select A1
' Start wizard to import text file
'
Dim retval As Boolean
    Sheets("All points List").Columns("A:Q").ClearContents
    Range("A1").Select
    ChDir "C:\Bas\Data\"
    With Application.Dialogs(xlDialogImportTextFile)
        If .Show = True Then
            'do something
        End If
    End With
    
End Sub

 

[Asrampd]

Thankyou - wil try when i can.