Creating a Floating Macro Button

@Matias
To clarify my last comment, you should NOT use BOTH Worksheet_SelectionChange and Workbook_SheetSelectionChange event handlers. The latter is NOT recommended for this Tip because buttons are usually Sheet dependent.

The code as shown has an issue when the selected cell is near the lower edge or right-hand edge of the visible sheet as the button will no longer be visible. The following code overcomes this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet.Shapes("Button 1")
If Target.Offset(1).Top > Application.Height - ActiveWindow.Height Then
.Top = Target.Top - .Height
Else
.Top = Target.Offset(1).Top
End If
If Target.Offset(0, 1).Left > Application.Width - .Width Then
.Left = Target.Left - .Width
Else
.Left = Target.Offset(0, 1).Left
End If
End With
End Sub

Another way is to have a button on a modeless Userform then there is no need have a macro move the button every time the selection changes with issues over multiple cell selection and if the selected cells is in the bottom right of the worksheet.

The Userform1 will have a Title bar and Close button. The Close button can be disabled quite easily, but the removal of the title bar is a bit more complex ( see https://www.teachexcel.com/excel-tutorial/2026/removing-the-title-bar-from-a-userform)

@Matias
When you open a workbook and press Alt+F11 you will see the Visual Basic Editor (VBE). If your workbook has several worksheets like Sheet1, Sheet2, etc., you should see these listed under Project - VBAProject > Microsoft Excel Objects. You should also see the ThisWorkbook object listed after the Sheet objects.

The original Worksheet_SelectionChange event handler code described in the Tip should be in each of the Sheet objects that has a button. The Workbook_SheetSelectionChange event handler described in my previous comment should be in the ThisWorkbook object. In the latter case, parameter Sh identifies which Sheet object had a selection change. In either case, the name of the button Shape or OLEObject will probably be different for each Sheet (Sh).

@J.Woolley
Perhaps another dum question:
I implemented the changes you suggested and everything works throughout the whole workbook
but I would like to use it only on the sheet I have the actual button, not any other sheets.

Dont understand where to adjust that?

@MARCO GOUVEIA
To fix the bug, change the two lines related to Target as follows:
.Top = Target.Cells(1).Offset(1).Top
.Left = Target.Cells(1).Offset(, 1).Left
To apply to the whole workbook, change the first line as follows:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
then substitute Sh in place of ActiveSheet.

Another q... How do you suggest fixing the bug that happens when more than one line is selected?

Hi! Thank you for the macro! Would it be easy to make the macro work in the whole workbook?

Navin: I think you may have mis-typed the question....i don't know what you are asking

I still have my test, but never did anything with it.

It runs without a problem, and I have tried inputting to different cells without a problem

Sorry i can't help

Runs fine but when I click the any of the row number, error pops-up:

"Run-Time Error '1004':
Application-defined or object-defined error. "

Any workaround? Thanks.

UPDATE ON PREVIOUS COMMENT:

Closed workbook after it didn't work. Re-opened workbook next day, and it was working.

Must be the MS fairy godmother looking over me !!!

Didn't work for me

I thought that I would give it a try. Inserted an activeX button (CommandButton1).
Copied code into worksheet.

Tried making entries in different cells

Nothing happens