ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""","""",""" & DSName & """)"

Tested using Excel 97SR2 on Windows 98SE,

HTH
Paul
--------------------------------------------------------------------------------------------------------------
Be advised to back up your WorkBook before attempting to make changes.
--------------------------------------------------------------------------------------------------------------

I tried your code, but got the same error message. any
other suggestions?