Set Databk = workbooks.open(filename:="c:\temp\DEF.xls")
Set Datasht = Databk.sheets("ABC")

with Datasht
if .Range("A1") = .Range("B1") then
'add your code here
end if

end With

Databk.close savechanges:=false


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=189250

http://www.thecodecage.com/forumz/chat.php