I am now using the dynamic range method to populate the combo box,
is there a way to enter the new data into a hidden sheet

Private Sub CoBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Resp As Long
With Me.CoBox
If .Value = "" Then
'do nothing
Else
If .ListIndex = -1 Then
Resp = MsgBox(Prompt:="This is a new Name, Do you want
to save it? " & .Value, _
Buttons:=vbYesNo)
If Resp = vbYes Then
Dim varNbRows As Double
Sheets("Menus").Select
Range("F2").Select
varNbRows = Selection.CurrentRegion.Rows.Count
If Selection.Value = "" Then
Exit Sub
ElseIf Selection.Offset(1, 0).Value = "" Then
Selection.Offset(1, 0).Select
Else
Selection.Offset(varNbRows, 0).Select
End If
Range("F1")(ActiveCell.Row).Value = CoBox

Else
'leave the combobox or stay in it?????
'Cancel = True
End If
End If
End If
End With
End Sub