Hello,

I use follwing listing to insert two dates ina workbook:

Sub InserimentoPeriodo()
Dim DataInizio As Date
Dim DataFine As Date

If ActiveSheet.Name < "Rates1" Then
Worksheets("Rates1").Activate
End If

DataInizio = InputBox("Inserisci la data di INIZIO periodo nel formato
gg-mmm-aaaa", "Confronto Variazioni Prezzi", "1-mag-1997")

If Year(DataInizio) < 1997 Then
MsgBox "Usare solo date dell'anno 1997", vbOKOnly
Exit Sub
End If
Range("E1").Value = DataInizio

DataFine = InputBox("Inserisci la data di FINE periodo nel formato
gg-mmm-aaaa", "Confronto Variazioni Prezzi", "10-set-1997")
If Year(DataFine) < 1997 Then
MsgBox "Usare solo date dell'anno 1997", vbOKOnly
Exit Sub
End If
Range("E2").Value = DataFine

End Sub

If I answer to the imputbox question with "Cancel" I get the message:
Error of run Time '13'
How may avoid it?

Thank you for helping

--
dilettante