nigelandrewfoster
Well-known Member
- Joined
- May 27, 2009
- Messages
- 747
Hi,
Code below works fine if I put breakpoints in the first procedure, but stops with above error on highlighted line when I don't. Why please? And how can I overcome this? Puzzled! Thanks.
Code below works fine if I put breakpoints in the first procedure, but stops with above error on highlighted line when I don't. Why please? And how can I overcome this? Puzzled! Thanks.
Code:
Sub Compile_Megalist() Dim wsCustomers As Worksheet
Dim wsHistoric As Worksheet
Dim wsNewArrivals As Worksheet
[B]Set wsCustomers = OpenWorkbook(strMailChimpPath(), "Megalist A - CUSTOMERS.xlsx").Worksheets(1)[/B]
Set wsHistoric = OpenWorkbook(strMailChimpPath(), "Megalist B - HISTORY.xlsx").Worksheets(1)
Set wsNewArrivals = OpenWorkbook(strMailChimpPath(), "Megalist C - NEW ARRIVALS.xlsx").Worksheets(1)
End Sub
Code:
Function OpenWorkbook(strPath As String, strFilename As String) As Workbook
On Error Resume Next
Set OpenWorkbook = Workbooks(strFilename)
If Err.Number = 9 Then Set OpenWorkbook = Workbooks.Open(Filename:=strPath & strFilename)
On Error GoTo 0
End Function
Last edited: