Can someone tell me whats wrong with this:
Dim ocell as range
For each oCell in Selection
If Isempty(activecell) Then
oCell.FormulaR1C1 = "=RC"
When I run the code it only does one cell then the activecell jumps up 4 rows.