Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[COLOR="Red"]Lg = ActiveCell.Row
If IsEmpty(Cells(Lg, 1)) Then
ToggleButton1.Visible = False
Exit Sub
End If[/COLOR]
ToggleButton1.Left = Cells(Lg, 1).Left + Cells(Lg, 1).Width - ToggleButton1.Width
ToggleButton1.Top = Cells(Lg, 1).Top - (ToggleButton1.Height - Cells(Lg, 1).Height) / 2
ToggleButton1.Visible = True
End Sub