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