VBA lee información de otro Excel

Private?Sub?Worksheet_Change(ByVal?Target?As?Range)

Dim?wb?As?Workbook,?sh,?a,?m,?r

If?Target .Columna?=?entonces

Establecer?wb?=?GetObject(ThisWorkbook.Path?&?" \B.xlsx")

Establecer?sh?=?wb.Workheets (1)

a?=?Target.Workheets(1)

Establecer?Valor

Establecer?m?=?sh.Range("D: D").Find(What:=a,?LookAt:=xlWhole)

If?m?Is?Nada?Then

Target.Font.ColorIndex?=?3

Else

Target.Font.ColorIndex?=?xlAutomático

wb.Close

¿Fin?Si

¿Fin?