lnRetVal = adir(aForms, "*.SCX") for j = 1 to lnRetVal lcForm = aForms(j,1) use (lcForm) excl set filter to "OLDNAME" $upper(methods) locate if !eof() browse endif set filter to "OLDNAME" $upper(properties) locate if !eof() browse endif use compile form (lcForm) endfor returnNote that I do not automatically use code to do a STRTRAN() on the old name to the new name. What if old name is not used as a reference to that table and should not be changed? In the browse you can look at the code yourself and use the Search/Replace to selectively change the references yourself.