modify inputboxs so cancel = exit sub

[whiteghost]

Hi
how can I modify this code or the inputboxes sothat if "cancel" is clicked on any of the inputboxes will exit the sub.

Sub star1()
'
Dim loopcount As Integer
Dim i As Integer
loopcount = InputBox("how many rows?")
For i = 1 To loopcount

Range("a65536").Select

Dim x As Double
    
    x = Range("a525").End(xlUp).Row + 1
    Range("a" & x).Select
 

typetext = InputBox(prompt:="Enter Code.", Default:="PCode")
codetext = InputBox(prompt:="Enter coutry Code.", Default:="Country Code")
quantext = InputBox(prompt:="Enter quantity.", Default:="Qty.")
pricetext = InputBox(prompt:="Enter price.", Default:="")
ActiveCell.FormulaR1C1 = typetext
Range("a65536").End(xlUp).Offset(1, 0) = vbNullString
Range("a65536").End(xlUp).Offset(0, 0) = typetext
Range("a65536").End(xlUp).Offset(0, 2) = codetext
Range("a65536").End(xlUp).Offset(0, 4) = quantext
Range("a65536").End(xlUp).Offset(0, 5) = pricetext
    
Next i

x = Range("a525").End(xlUp).Row + 1
    Range("a" & x).Select


End Sub

the macro position the input , the loopcount input box allowser to define how many rows they want to add. What I want to be able to do is exit the sub if cancel is clicked on typetext, codetext, quantext or pricetext.

thanks