Lidt VBA-kode

Public Sub test()
Application.OnKey ("^{BREAK}"), "Hej"
End Sub

Public Sub Hej()
MsgBox "Hej"
End Sub


kør test og det vil virke

Tak for dit svar/forslag, jeg forsøger mig lidt frem, og vender tilbage, men måske først imorgen.

Hej igen
Din kode virker for såvidt godt nok og kan forstå når der trykkes på Ctrl+pause/break når man er på excelarket, men jeg har vist ikke forklaret mig godt nok.

Jeg har et excelark med en større VBA-kode, koden henter en kommaseperet tekstfil ind på mit excelark og foretager trinvis en del formatering, undervejs skal der i forskellige userforms tages stilling til forskellige ting.
Problemet er så, at nogle brugere har fundet på, når en enkelt userform er på skærmen og trykke på Ctrl+pause/break, og så stopper det hele jo, det var det jeg lige havde tænkt og kunne bruge din kode til, men det fik jeg ikke til og fungerer.
- Kan du hjælpe med en eller anden form for kode, der kan undgå at alt stopper hvis man har en Userform på skærmen og der så trykkes på Ctrl+pause/break.
- Håber lige nogen kan hjælpe på vej.

hvis du sætter denne indi dit modul, virker CTRL BREAK ikke

Private Sub UserForm_Initialize()
Application.EnableCancelKey = xlErrorHandler
End Sub

Hej kabbak
Har testet dit sidste forslag, det virker perfekt, endelig fandt jeg en rigtig god løsning.
Tusind tak for hjælpen.
- har lagt point til dit svar