Uygulama ShowCursor - Fare (Mouse) Sayfada Belli Alan Seçildiğinde Görünsün

#If VBA7 And Win64 Then 
    Declare PtrSafe Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
#Else
    Public Declare Function ShowCursor Lib "USER32" (ByVal fShow As Integer) As Integer
#End If

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("E1:F10")) Is Nothing Then
        While ShowCursor(False) >= 0: Wend
            Else
        While ShowCursor(True) < 0: Wend
    End If
End Sub