Adding items to another sheet

This is my code for adding regions

Private Sub btnAddRegion_Click()
Dim newregion As String

newregion = Application.InputBox("Enter the name of the new region", "New Region")

Sheets("Region").Range("A65536").End(xlUp).Offset(1, 0).Value = newregion


End Sub

This works fine apart from when i click cancel (not to add a region), it adds a false. Can this be stopped?

Thanks

Hi

Try

newregion = Application.InputBox("Enter the name of the new region", "New Region")

If newregion <> "False" Then
  Sheets("Region").Range("A65536").End(xlUp).Offset(1, 0).Value = newregion
End If

rylo