Code a Command Button on UserForm not to close upon click - Excel VBA

I'm not sure what part of the code tells the UserForm to close upon click.

Private Sub AddUpdateCand_CommandButton_Click()
Dim idx As Long

Me.Hide 'This keeps the data on the UserForm from disappearing once it's closed down

    idx = cboCandidate.ListIndex

    If idx = -1 Then
        idx = Worksheets("CandidateData").Range("A" & Rows.Count).End(xlUp).Row + 1 'the following data will be stored on the worksheet called CandidateData
    Else
        idx = idx + 2
        End If

        With Worksheets("CandidateData")
            .Range("A" & idx).Value = cboCandidate.Value
            .Range("B" & idx).Value = Cand_ID.Value
            .Range("C" & idx).Value = Cand_EmpStatus.Value
            .Range("D" & idx).Value = Cand_Step.Value
            .Range("E" & idx).Value = Cand_Nep.Value
            .Range("F" & idx).Value = Cand_CityState.Value
            .Range("I" & idx).Value = Format(Cand_PhoneNo.Value, "(###) ###-####")
            .Range("J" & idx).Value = Cand_Email.Value
            .Range("K" & idx).Value = Cand_Resume.Value
            .Range("L" & idx).Value = Cand_Taleo.Value
            .Range("M" & idx).Value = Cand_StatusPS.Value
            .Range("N" & idx).Value = Cand_EligFT.Value
            .Range("O" & idx).Value = Cand_JC.Value
            .Range("P" & idx).Value = Cand_Edpm.Value
            .Range("R" & idx).Value = Cand_Ext.Value
            .Range("S" & idx).Value = Cand_Loc.Value
            .Range("T" & idx).Value = Cand_Shift.Value
            .Range("U" & idx).Value = Cand_PS_ID.Value
            .Range("V" & idx).Value = Cand_Notes.Value
            '.Range("W" & idx).Value = Cand_UseSameItvwTeam.Value
            .Range("X" & idx).Value = Cand_IntA.Value 'Only if answer to UseSameItvwTeam is FALSE
            .Range("Y" & idx).Value = Cand_IntB.Value 'Only if answer to UseSameItvwTeam is FALSE
            .Range("Z" & idx).Value = Cand_IntC.Value 'Only if answer to UseSameItvwTeam is FALSE
            .Range("AA" & idx).Value = Cand_Alt1.Value 'Only if answer to UseSameItvwTeam is FALSE
            .Range("AB" & idx).Value = Cand_Alt2.Value 'Only if answer to UseSameItvwTeam is FALSE
            .Range("AC" & idx).Value = Cand_Alt3.Value 'Only if answer to UseSameItvwTeam is FALSE
            .Range("AA" & idx).Value = Cand_Host1.Value 'Only if answer to UseSameItvwTeam is FALSE
            .Range("AB" & idx).Value = Cand_Host2.Value 'Only if answer to UseSameItvwTeam is FALSE
            
            'If Then Statements
            If YesRelo_OptionButton.Value = True Then
            .Range("G" & idx).Value = "Yes"
            .Range("H" & idx).Value = "Travel/Hotel Authorization Made"
            .Range("AF" & idx).Value = " "
            .Range("AG" & idx).Value = " "
            Else
            .Range("G" & idx).Value = "No"
            .Range("H" & idx).Value = "No Travel Necessary"
            .Range("AF" & idx).Value = "*****"
            .Range("AG" & idx).Value = "*****"
            End If
            
            If NoRelo_OptionButton.Value = True Then
            .Range("G" & idx).Value = "No"
            .Range("H" & idx).Value = "No Travel Necessary"
            .Range("AF" & idx).Value = "*****"
            .Range("AG" & idx).Value = "*****"
            Else
            .Range("G" & idx).Value = "Yes"
            .Range("H" & idx).Value = "Travel/Hotel Authorization Made"
            .Range("AF" & idx).Value = " "
            .Range("AG" & idx).Value = " "
            End If
            
            If Cand_EmpStatus.Value = "Employee" Then
            .Range("L" & idx).Value = "*****"
            .Range("M" & idx).Value = "*****"
            .Range("P" & idx).Value = "*****"
            .Range("Q" & idx).Value = "No Drug Necessary"
            End If
            
            If Cand_EmpStatus.Value = "External" Then
            .Range("R" & idx).Value = "*****"
            .Range("S" & idx).Value = "*****"
            .Range("T" & idx).Value = "*****"
            .Range("U" & idx).Value = "*****"
            .Range("Q" & idx).Value = "Drug Screening"
            End If
            
            If Cand_EmpStatus.Value = "Agency" Then
            .Range("R" & idx).Value = " "
            .Range("S" & idx).Value = " "
            .Range("T" & idx).Value = " "
            .Range("U" & idx).Value = " "
            .Range("Q" & idx).Value = "Drug Screening"
            End If
            
            If Intvw_Type.Value = "Internal/Informal" Then
            .Range("AI" & idx).Value = "*****"
            .Range("AJ" & idx).Value = "*****"
            End If
            
            If Intvw_Loc.Value = Cand_Loc.Value Then
            .Range("AH" & idx).Value = "*****"
            End If
                        
        End With
        
End Sub

The reason I was told to put that there was so when then it does close, it doesn't clear all of the data entered into the UserForm. Is that the only reason it does close?

Where should I put that code elsewhere so when the user clicks the X, the data remains in the UserForm?

I will give that a try. Thank you.

I Think. Let me get back to you. It doesn't close down now when I click different command buttons, however, two of my tabs on my Multi-Page UserForm did not have their information in them when I re-opened the UserForm.

It has worked. Thank you!

How do I do that, Norie? Would I duplicate what I already have in there as follows:

Private Sub UserForm_Initialize()
Dim varCand As Variant

   
    With Worksheets("CandidateData")
        varCand = .Range("A2", .Range("A" & Rows.Count).End(xlUp)).Value
    End With
   
    If IsArray(varCand) Then
          cboCandidate.List = varCand
    Else
           cboCandidate.AddItem varCand
    End If

End Sub

Or, is there something else?

Yes, there is a worksheet called 'JobIntvwData' and two tabs, one called 'RequisitionTab' and 'TeamTab'.