Skip to content

Instantly share code, notes, and snippets.

@ricdeez
Created July 19, 2016 07:49
Show Gist options
  • Save ricdeez/c26e499da47831eec56cf856bd3e6eeb to your computer and use it in GitHub Desktop.
Save ricdeez/c26e499da47831eec56cf856bd3e6eeb to your computer and use it in GitHub Desktop.
Public Sub DoIt()
Dim rge As Excel.Range
Dim my_row As Long
Set rge = Application.Selection
rge.Copy
my_row = rge.Row
ActiveSheet.Cells(my_row, 3).Value = UCase(rge.Value)
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment