Could someone please explain to me why it is that after the below code runs I always get a Type Mismatch error once it actually finishes? Also, any idea why it would run substantially faster if the workbook name is a number than a name?

Sub Search_And_Replace_to_Activate()

For Each sht In ActiveWorkbook.Sheets
For Each cell In sht.UsedRange.Cells
cell.Value = Replace(cell.Value, "a=", "=", 1, 1, vbTextCompare)
Next cell
Next sht
End Sub


Thanks


--------------= Posted using GrabIt =----------------
------= Binary Usenet downloading made easy =---------
-= Get GrabIt for free from http://www.shemes.com/ =-