Det her lyder nok lidt underligt !!!!!!

- men findes der en kode, som kan aktivere Cancel knappen i en InputBox ?

 

Grunden til dette er, at jeg gerne vil lukke InputBox'en efter f.eks. 1 minut, hvis brugeren ikke har trykket OK indenfor tidsrammen.

 

Ved ikke om det kan løses ????

 

Glædelig "bag" Jul og godt Nytår til alle i dette fantastiske forum

 

Mvh.

Peter Juul

 

 

 

SendKeys "{ESC}"

 

Private Sub PickMouse_Click()
'*********************MOUSE PICK SLUT**************************
Dim rRange As Range
Dim rRange1 As String

On Error Resume Next
    Application.DisplayAlerts = False

    SendKeys "{ESC}"
    Set rRange = Application.InputBox(Prompt:= _
                "Please select a range with your Mouse to be bolded.", _
                Title:="SPECIFY RANGE", Type:=8)
On Error GoTo 0
    Application.DisplayAlerts = True
      
    If rRange Is Nothing Then
    Exit Sub
    Else
    Set rRange = rRange.Cells(1) 'in case >1 cell was selected
    rRange1 = rRange.Address
    End If
ActiveSheet.Range(rRange1).Select
Exit Sub
'*********************MOUSE PICK SLUT**************************