Application.MouseAvailable Property (Word)
True if there is a mouse available for the system. Read-only Boolean.
An expression that returns an Application
This example displays a message that no mouse is available.
If Application.MouseAvailable = False Then
Msgbox "Make sure your mouse is plugged in."
Msgbox "Mouse is available"