I used MsgBox to show a value. You used it without MsgBox which is like coding: 5. 5 would be a syntax error.
When debugging code, I use a MsgBox or Debug.Print. The latter used instead of MsgBox prints a run's result into the Immediate Window of the Visual Basic Editor (VBE). You can even test one line snippets of code there. e.g. x=5: ?x, and press Enter key would return 5. Think of the ? used this way in that window as a "Debug.Print x" line of code.
Another good way to see where your problem lies is by debugging your code by running one line of code at a time. Press F8 while in your routine to execute each line. Hover your mouse over variables to see what they resolved to.
To better explain full, partial, and relative objects, methods and properties, replace the string "x:\test\test.xlsm" to one of your files and "Sheet1" as needed.
Notice how I used With to prefix the object and then used . to reference those objects. I could have added the workbook object and the sheet object prefix to each property but With is more efficient.
Notice that in the 2nd MsgBox, . is not used which infers that we are using the active objects like ActiveWorkbook and ActiveSheet when we use the object Range for example.
Sub ken()
Dim wb As Workbook, ws As Worksheet
Set wb = Workbooks.Open("x:\test\test.xlsm")
Set ws = wb.Worksheets("Sheet1")
With ws
MsgBox "Workbook Path: " & wb.Path & vbCrLf & _
"Workbook FullName: " & wb.FullName & vbCrLf & _
"Workbook Name: " & .Parent.Name & vbCrLf & _
"Worksheet Name: " & .Name & vbCrLf & _
"Relative Range A1 Address: " & .Range("A1").Address(False, False) & vbCrLf & _
"Absolute Range A1 Address: " & .Range("A1").Address & vbCrLf & _
"External Range A1 Address: " & .Range("A1").Address(External:=True) & vbCrLf & _
"Range A1 Value: " & .Range("A1").Value
End With
'Close opened workbook
wb.Close False
'ActiveWorkbook, ActiveSheet
MsgBox "Workbook Path: " & ActiveWorkbook.Path & vbCrLf & _
"Workbook FullName: " & ActiveWorkbook.FullName & vbCrLf & _
"Workbook Name: " & ActiveWorkbook.Name & vbCrLf & _
"Worksheet Name: " & ActiveSheet.Name & vbCrLf & _
"Relative Range A1 Address: " & Range("A1").Address(False, False) & vbCrLf & _
"Absolute Range A1 Address: " & Range("A1").Address & vbCrLf & _
"External Range A1 Address: " & Range("A1").Address(External:=True) & vbCrLf & _
"Range A1 Value: " & Range("A1").Value
End Sub