Selection error

[Alexxu]

hello.
I have this code:

Sub InsertDate()

    Dim Error As Integer
    On Error GoTo Err
        Selection.InsertDateTime DateTimeFormat:="dd.MM.yyyy", InsertAsField:= _
        False, DateLanguage:=wdRomanian, CalendarType:=wdCalendarWestern, _
        InsertAsFullWidth:=False
       
Err:
        MsgBox "Atentie.Au fost selectate mai multe informatii.Corectati selectia!", vbInformation, "Atentie"
End Sub

When i select multiple items i get un error.Whaty i want is to show me the msgbox error when i get that error.
The code as it is now, pops up the msgbox everytime i insert data.
What should i do?
thanks

 

[VoG]

Try

Sub InsertDate()
If Selection.Areas.Count > 1 Then
        MsgBox "Atentie.Au fost selectate mai multe informatii.Corectati selectia!", vbInformation, "Atentie"
Else
        Selection.InsertDateTime DateTimeFormat:="dd.MM.yyyy", InsertAsField:= _
        False, DateLanguage:=wdRomanian, CalendarType:=wdCalendarWestern, _
        InsertAsFullWidth:=False
End If
End Sub

 

[Alexxu]

I get un error wich reffers to the .Areas.
I forgeten to say that this code was fit to work in a ms word module.

 

[VoG]

Untested:

Sub InsertDate()

    Dim Error As Integer
    On Error GoTo Err
        Selection.InsertDateTime DateTimeFormat:="dd.MM.yyyy", InsertAsField:= _
        False, DateLanguage:=wdRomanian, CalendarType:=wdCalendarWestern, _
        InsertAsFullWidth:=False
        Exit Sub
       
Err:
        MsgBox "Atentie.Au fost selectate mai multe informatii.Corectati selectia!", vbInformation, "Atentie"
End Sub

 

[Alexxu]

It works very well.To bad that im not that smart as you
Thanks for the help.