Application-defined or object-defined error on one machine but not the other

[DKY]

I'm trying to figure out why I can run a bit of code on my machine but on another machine I get an:
Application-defined or object-defined error

The code is in an excel file on a network drive and it pulls up a form, once the form is submitted it runs some code that looks like so

Sub ajbkMargin2()
Dim strfirst, strletter, Coststrfirst, Coststrletter, ICstrfirst, ICstrletter, Packstrfirst, Packstrletter, strnumber As String
Dim Margin, RowAnswer, CIPdecision, RowMyNote As String
Dim LastRow, i As Long
Dim objAccess As Object

frmCIP.Hide
    
'If the particular radio button is selected, change the value of the boolean as True
If frmCIP.OptCalcDnet.Value = True Then
    CIPdecision = "aDNET"
ElseIf frmCIP.OptMarginDecimal.Value = True Then
    CIPdecision = "aMarginDecimal"
ElseIf frmCIP.OptMarginInteger.Value = True Then
    CIPdecision = "aMargin"
End If

' START GET COLUMN LETTER
Coststrfirst = IIf(Chr$(64 + Range(frmCIP.RefEditCost).Column \ 26) = "@", "", Chr(64 + Range(frmCIP.RefEditCost).Column \ 26))
Coststrletter = Coststrfirst & Chr$(64 + Range(frmCIP.RefEditCost).Column Mod 26)
ICstrfirst = IIf(Chr$(64 + Range(frmCIP.RefEditIC).Column \ 26) = "@", "", Chr(64 + Range(frmCIP.RefEditIC).Column \ 26))
ICstrletter = ICstrfirst & Chr$(64 + Range(frmCIP.RefEditIC).Column Mod 26)
Packstrfirst = IIf(Chr$(64 + Range(frmCIP.RefEditPack).Column \ 26) = "@", "", Chr(64 + Range(frmCIP.RefEditPack).Column \ 26))
Packstrletter = Packstrfirst & Chr$(64 + Range(frmCIP.RefEditPack).Column Mod 26)
strfirst = IIf(Chr$(64 + Range(frmCIP.RefEditRes).Column \ 26) = "@", "", Chr(64 + Range(frmCIP.RefEditRes).Column \ 26))
strletter = strfirst & Chr$(64 + Range(frmCIP.RefEditRes).Column Mod 26)
strnumber = Range(frmCIP.RefEditRes).Row
' END GET COLUMN LETTER

Unload frmCIP

' START MACRO WILL STOP AT ROW _? QUESTION

'Place your text here
RowMyNote = "Your top cell is " & strletter & strnumber & ", is that correct?"

'Display MessageBox
RowAnswer = MsgBox(RowMyNote, vbQuestion + vbYesNo, "???")

If RowAnswer = vbNo Then
    'Code for No button Press
    Exit Sub
Else
' END MACRO WILL STOP AT ROW _? QUESTION

' OPENS GREGG'S DESCRIPTION_CLEANER DATABASE

    Set objAccess = GetObject _
       ("O:\Common\Common-Parts\Prcng\Macros\Macros.accdb")
        With objAccess
            .Visible = False
        End With
    
    LastRow = Range(Coststrletter & "65536").End(xlUp).Row
        For i = LastRow To strnumber Step -1
            Debug.Print Range(strletter & i).Address, Range(strletter & i).Value
            Margin = objAccess.Run(CIPdecision, Range(Coststrletter & i), Range(ICstrletter & i), Range(Packstrletter & i))
            Range(strletter & i).Value = Margin
        Next

' END IF FOR MACRO WILL STOP AT ROW _? QUESTION
End If
' END IF FOR MACRO WILL STOP AT ROW _? QUESTION

MsgBox "All Done!"

End Sub

but I get the error on the line

Margin = objAccess.Run(CIPdecision, Range(Coststrletter & i), Range(ICstrletter & i), Range(Packstrletter & i))

any help is greatly appreciated!

[Leith Ross]

Hello DKY,

The object you are trying to connect with isn't running.

[DKY]

I'm an idiot. The Access file was opening in read only because of macro security settings.