UserForm ComboBox value disappears after selection

[gopal baheti]

My Code

Private Sub ComboBox1_Change()
If Len(ComboBox1.Value) > 0 Then
Sheets("MASTER").Range("B1") = ComboBox1.Value
With ActiveWorkbook.Names("NAME")
.Name = "NAME"
.RefersToR1C1 = "=MASTER!R2C4:R" & Sheets("MASTER").Range("c1").Value & "C4"
End With
ComboBox1.RowSource = "NAME"
ComboBox1.DropDown
Else
End If
End Sub

When I select an item from drop down it clears combobox

Please suggest correction.

Regards

 

[6StringJazzer]

What is the value in MASTER!C1 when this code executes? What is the range assigned to NAME after this executes? It sounds like the RefersToR1C1 definition may be in error, but it's impossible to tell without knowing what is in your data.