Nancy,

Untested, but try

Dim DSName As String

DSName = InputBox("Enter todays Portfolio Name")

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


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Nancy" wrote in message
...
I have an input box in the beginning of my macro that ask
for a string to be entered into a cell B2. Then copied
down. But i'm getting a #NAME? error in the cells.

Here is the code i am using.

Dim DSName As String

DSName = InputBox("Enter todays Portfolio Name")

Range("B2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""","""",DSName)"

Any suggestions? Thank You.