Powerpoint vba question...

[Chrisjd2]

Hi need some vba help with power point...

All I want to do it add the filedialog box rather than putting in the location of the file before the program reads it.

Sub main()Dim Myfile As String
Dim Myline As String
Dim Roweq As Long
Dim mydocument As Slide


SlideNumber = 1
Myfile = Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
CassyFile = "E:\difference report\NEW CASSY.TXT;2.txt"
Open Myfile For Input As #1


Roweq = 1


While Not EOF(1)
    Line Input #1, Myline
    Roweq = Roweq + 1
Wend
Close #1


ReDim Filelines(Roweq)


Maxfilelines = Roweq


Open Myfile For Input As #1


Roweq = 1

It doesnt like "Open Myfile For Input As #1" and its saying Runtime Error 53?

Chris

 

[Chrisjd2]

anyone???