macro: wanting final cell same as initial cell

[lagrangePoint3]

I made a macro to put a check mark into a cell.
Then I made it into a button and put it on the Quick Access Toolbar in the Personal Workbook.

When I run the macro, it puts a checkmark into the initial cell, but then moves the cursor into a different cell.
It always moves the cursor into the same different cell, though.
I would like it to stay on the cell it's putting the checkmark into.

While I was creating the macro, it grayed out the Stop Macro Recording button until I moved the focus out of the cell.
I didn't move to the cell it's ending on though, just moved into the next cell to it's right.

If I want to retain the same cell as the checkmark at the end of the macro, do I need to move it to a different cell as I did, and then move it back again?
I'll try that as I wait for your reply. Thanks.

 

[Peter_SSs]

I suggest that you post the existing code for the macro so that we can assess what it is doing. See my signature block below regarding how to post vba code.

 

[lagrangePoint3]

Sub Checkmark()
'
' Checkmark Macro
' inserts a checkmark in Wingdings font, centered, into a cell.
'
' Keyboard Shortcut: Ctrl+h
'
    With Selection.Font
        .Name = "Wingdings"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    ActiveCell.FormulaR1C1 = "ü"
    Range("H1").Select
End Sub

 

[Peter_SSs]

When I run the macro, it puts a checkmark into the initial cell, but then moves the cursor into a different cell.
It always moves the cursor into the same different cell, though.
I would like it to stay on the cell it's putting the checkmark into.

Then remove this line near the end of the macro.

    End With
    ActiveCell.FormulaR1C1 = "ü"
    Range("H1").Select
End Sub

 

[lagrangePoint3]

Thank you, Peter. Worked perfectly.

 

[Peter_SSs]

You are welcome. Thanks for the follow-up.