Option Explicit
Sub OpnWBTwo()
Dim objExcel
Dim objWorkbook As Object
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Open(Environ("USERPROFILE") & "\Desktop\checkbook-register.xlsx")
End Sub