Ok, eventually I will get the code right. I think I am closer than ever
before with your help. Thanks again.. Mike

The problem now is it is copying the contents of the wrong worksheet. It
copies data from workbook Settlement.xls, sheet Settlement (first sheet in
workbook), instead of workbook Contracts1.xls, sheet Sheet1. Plus it doesnt
like my code for the combobox. What am I doing wrong again?

The code you gave me earlier this week worked perfect with a command button.
But putting it in the Workbook_Open event it doesnt want to work correctly.
What is the reason for this?

Private Sub Workbook_Open()
Dim numRows As Long

'Refresh data of Contracts worksheet in C:\CCF\Settlement4.xls from data
contained
'in worksheet Sheet1 in C:\CCF\Contracts1.xls

Workbooks.Open Filename:="C:\CCF\Contracts1.xls"
With ThisWorkbook.Worksheets("Contracts") 'C:\CCF\Settlement4.xls

'Determine number of rows in C:\CCF\Contracts1.xls Sheet1

numRows = Application.CountA(ActiveSheet.Range("A:A"))

'Copy from C:\CCF\Contracts1.xls!Sheet1 and
'Paste in C:\CCF\Settlement4.xls!Contracts
ActiveSheet.Range("A1:AI" & numRows).Copy .Range("A1")


'modify combobox properties to update listfillrange
cmbContracts.ListFillRange = "Contracts!A2:C" & numRows


End With
ActiveWorkbook.Close

'Select Settlement worksheet so this is what the user sees
Worksheets("Settlement").Select

End Sub