The code is still not showing corrrectly!
The formula shown in the code after FormulaR1C1 = _
should be :
=IF(ISERR(FIND(""hr"",RC[-1])),0,MID(RC[-1],FIND(""hr"",RC[-1])-1,1))
surounded by double quotes "......"
EggHeadCafe.com - .NET Developer Portal of Choice
http://www.eggheadcafe.com