remote workbook

[chris2727272727]

For Each cell In Range (\\Office_server\My Documents\Thames Valley\[Thames Valley Database.xls]Employee Contacts'!$B$2:$B$144)

i have the above code but it keeps coming up woth an error are all the brackets and comas in the right place

 

[BrianB]

The partial code shows how I would handle this.

' 1.Refer to ranges like this : Workbooks("Book1.xls").WorkSheets("Sheet1").Range("A1")
' 2.It is bad practice to use MS Reserved Words as variable names (ie. 'Cell')
' PARTIAL CODE
Dim MyRange As Range
Workbooks.Open FileName:="\\Office_server\My Documents\Thames Valley\Thames Valley Database.xls"
Set MyRange = ActiveWorkbook.Worksheets("Employee contacts").Range("B2:B144")
For Each c In MyRange.Cells
'etc