Can i hide the little blue circle that shows excel is caculating?

[tonywatsonhelp]

Hi Everyone,

anyone know if it possible with vba to hide the little blue circle that shows excel is calculating? when I run a macro?
Thanks
Tony

 

[Yongle]

'suppress blue circle
Application.Cursor = xlIBeam

'code doing the calculating goes here

'reinstate cursor settings to default
Application.Cursor = xlDefault

 

[Yongle]

call as a sub

Sub Test()
'suppress blue circle
BlueCircle False
    
'code doing the calculating goes here

'reinstate cursor settings to default
BlueCircle True
End Sub

Private Sub BlueCircle(YesNo As Boolean)
With Application
    If YesNo Then .Cursor = xlDefault Else .Cursor = xlIBeam
End With
End Sub

 

[tonywatsonhelp]

Thank you Yongle,
This is great
Tony

 

[RoryA]

FWIW, if you want to hide the cursor completely, you can use the ShowCursor API function.

 

[Yongle]

FWIW, if you want to hide the cursor completely, you can use the ShowCursor API function.

@RoryA How do I do that ?

 

[RoryA]

The API declaration is:

#If VBA7 Then
Declare PtrSafe Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Long) As Long
#Else
Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Long) As Long
#end if

then just use Showcursor 0 to hide it and Showcursor 1 to show it again.