Macro to Fill Two Columns

[MikeG]

In my spreadsheet I have two named ranges. One is "User_Name" and the other is "Status"

I would like to create a macro (connected to the shortcut key Ctrl x) so that when the user presses Control x, then no matter what cell he or she is in, the macro will paste the value of "User_Message" in the current cell, and then paste the value of "Status" in the next column to the right. When the action is over, I want the user to still be in the same cell - i.e. I do not want them to end up in the adjacent column.

Thanks!

MikeG

 

[mikerickson]

Like this

Sub InsertText()
    With ActiveCell
        .Value = "User_Message"
        .Offset(0, 1).Value = Range("Status").Cells(1,1).Value
    End With
End Sub

 

[MikeG]

Like this

Sub InsertText()
    With ActiveCell
        .Value = "User_Message"
        .Offset(0, 1).Value = Range("Status").Cells(1,1).Value
    End With
End Sub

Brilliant! Works like a dream.

Thanks,

MikeG