I wrote a script that runs on my computer, but doesn't on my coworker's computer.
It fails, giving
"Runtime Error 91"
on the line:
Set citiFile = y.Sheets("VBA Inputs").Range("B4")
The workbook is located on a shared drive, which is linked to workbook y. The second line is giving me the error, implying that citiFile is not defined.
This script works when I run it from the shared drive off my computer, but errors out when run by my coworker from the same location. The same references are checked as well, since they're set in the file.
Sub ImportFiles()
Dim x As Workbook
Dim y As Workbook
Dim z As Workbook
Dim a As Workbook
Dim citiFile As Object
Dim jpmFile As Object
Dim rbEmail As String
Dim yesterdaysDate As Object
Dim todaysDate As Object
Dim shellEmail As String
Dim Month1 As String
Dim Month2 As Variant
Dim cel As Range
Dim tax As Range
Dim cell As String
Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range
Dim rng4 As Range
Dim rng5 As Range
Dim rng6 As Range
Dim rng7 As Range
Dim rng8 As Range
Dim rng9 As Range
Dim rng10 As Range
Dim rng11 As Range
Dim rng12 As Range
Dim rng13 As Range
Dim rng14 As Range
Dim folder As Outlook.MAPIFolder
Dim olApp As Outlook.Application
Dim olNS As Outlook.Namespace
Dim olfldr As Outlook.MAPIFolder
Dim sharedemail As Outlook.Recipient
Dim sharedemail2 As Outlook.Recipient
Dim olMail As Variant
Dim myTasks As Outlook.Items
Dim regEx As Object
Dim Matches As Variant
Dim Matches2 As Variant
Dim Pattern1 As String
Dim Pattern2 As String
Dim BodyText
Dim wordDoc As Word.Document
Dim olRng As Range
Dim olMail2 As Outlook.MailItem
Dim daysAgo As Long
Dim citiSaveFolder As Object
Dim itm As Outlook.MailItem
Dim objAtt As Outlook.Attachment
Dim todaysDate2 As String
Dim priorSaveFolder As Object
Dim yesterdaysDate2 As String
Dim todaysDateTax As String
Dim rngFound As Range
Dim rngFound2 As Range
Dim offsetRng As Range
Dim i As Integer
Dim offsetRngResult As String
Dim marginSubject As String
Dim todaysDate3 As Object
Dim Pattern3 As String
Application.DisplayAlerts = False
'Make sure the following are checked in Developer > Visual Basic > Tools > References
'Visual Basic for Applications
'Microsoft Excel XX.0 Object Library
'OLE Automation
'Microsoft Office XX.0 Object Library
'Microsoft Word XX.0 Object Library
'Microsoft Outlook XX.0 Object Library
'Microsoft Internet Controls
'Microsoft Forms 2.0 Object Library
'Microsoft HTML Object Library
'Open workbooks first
Set y = Workbooks.Open("\\[Shared drive server location]\Forecast VBA.xlsm")
Set citiFile = y.Sheets("VBA Inputs").Range("B4")
Set jpmFile = y.Sheets("VBA Inputs").Range("B3")
Set yesterdaysDate = y.Sheets("VBA Inputs").Range("H1")
Set todaysDate = y.Sheets("VBA Inputs").Range("B1")
Set todaysDate3 = y.Sheets("VBA Inputs").Range("L1")
...
...
...
