Macro opening folder but not going any further

[ghrek]

Hi

I have the following macro that opens a folder but when I go to click on one of the files within it once opened it dont do nothing and I need it to open next file I selected.

Any ideas?


Sub OPENWAFOLDER()
'
' OPENWAFOLDER Macro
'
ChDrive "T:"
ChDir "T:\Passenger Accounts\WA"
Application.GetOpenFilename
End Sub

 

[Yongle]

GetOpenFileName returns a STRING if file is selected
- as the name suggests it gets the name of the file to open (including the full path)

read this
https://docs.microsoft.com/en-us/office/vba/api/excel.application.getopenfilename

This helps clarify above and shows you how to structure your code so that it does not fail if something is not selected

Sub OpenAWorkbook()
    Dim fileToOpen As Variant

[COLOR=#006400]'get the full path of the file[/COLOR]
    fileToOpen = Application.GetOpenFilename
    
    
    If fileToOpen <> False Then
        MsgBox fileToOpen
        Workbooks.Open (fileToOpen)
    Else
        MsgBox "Nothing selected"
    End If
End Sub

 

[ghrek]

Thanks for that.

When im saving it as a read/write on my PC it fine but when someone else open the sheet where the macro buttons are on another PC as read only when they click on macro button it not working?

They opened it after I had saved the document. Any ideas?

 

[Yongle]

Scenario
You are saving as read\write
User is opening as Read Only
User clicks on button
Button does not work

1 Please post button VBA
2 Does button respond ? - test by inserting a message box as the first line of button code
3 Does button work normally if user opens as read\write ?

thanks