Guest User

Untitled

a guest
Jan 17th, 2019
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.12 KB | None | 0 0
  1. Dim name As Variant
  2. name = ActiveCell
  3. name = name + 1
  4. ActiveCell.Offset(1, 0).Activate
  5. ActiveCell.FormulaR1C1 = name
Add Comment
Please, Sign In to add comment