Walter, if you're out there...

Thanks for the macro to move the selected cell down one.
I have been trying to use the other macro you gave but I must not be implementing it correctly.

Please help if you have time.

Here is my entire formula - you will recognize the S stuff that you created:

Dim S
S = Selection
str1 = ActiveCell.Value
newFor = "=Qlink|Bars!'" & str1 & ",d,250,dohlcd,headers'"
Range("A2:F235").Select
Selection.FormulaArray = newFor
Range (S).Offset(1,0).Select

I have tried a number of combos to implement the following based on your code:

ForEach S in Selection
(macro operating on cell S)
Next S

Where am I supposed to put these lines instead?

Thank you very much.

Frank