Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim value As Double
- Dim column As Integer
- column = 3 - ActiveCell.column
- value = ActiveCell.value
- ActiveCell(1, column).value = value
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement