Sweet. Thank you! I'm curious if it is possible to do the followong:

1. Just move cells A:AP (not the entire row)
2. Just move the values without formatting
3. Move the row I select as destination down instead of overwriting
4. Delete the empty space caused by the move

On Wednesday, December 18, 2013 5:15:14 PM UTC-6, GS wrote:
Slightly improved to handle if you cancel... Sub MoveRows() Dim rngSource As Range, rngTarget As Range Const sPrompt$ = "Select the destination row position" Set rngSource = Selection.EntireRow Set rngTarget = Application.InputBox(Prompt:=sPrompt, _ Title:="Move Rows", Type:=8) If Not rngTarget Is Nothing Then rngSource.Cut rngTarget End Sub -- Garry Free usenet access at http://www.eternal-september.org Classic VB Users Regroup! comp.lang.basic.visual.misc microsoft.public.vb.general.discussion --- This email is free from viruses and malware because avast! Antivirus protection is active. http://www.avast.com