Problem in using the path that I get from the browser VBA

[spin42]

Hello

I am using two files which I merge and reformat. My problem is that I am doing something wrong and I cannot use the path from the browser for any other function.

below I have the part of the code that I have the problem


Sub test()


Dim FName As Variant
FName = Application.GetOpenFilename("Excel Files (*.xls),*.xls")
If FName = False Then
' user clicked cancel
Else
MsgBox FName
End If

Dim a As String
a = FName

x=Workbooks(a).Worksheets("Opp Pursuit Detail").Cells(5, 5).Value
'the underlined does not work

End Sub

Is there any other way that I can use the path that I get from the browser to process specific data from the selected file???

Thank you in advance

 

[VoG]

You need to open the file

Sub test()
Dim FName As Variant, x As Variant

Dim wb As Workbook
FName = Application.GetOpenFilename("Excel Files (*.xls),*.xls")
If FName = False Then
    Exit Sub
End If
Set wb = Workbooks.Open(FName)

x = wb.Worksheets("Opp Pursuit Detail").Cells(5, 5).Value

End Sub

 

[spin42]

does not it open when I write " wb = Workbooks.Open(FName) "
could you give me an example on how you can use the path that you get from the browser to process specific cells???

I am quite newbe..

 

[VoG]

You need

Set wb = Workbooks.Open(FName)

 

[spin42]

But I have already this line in my code and still I receive an error for the line
x = wb.Worksheets("Opp Pursuit Detail").Cells(5, 5).Value

why?

 

[VoG]

What is the error? The code works fine for me.