Userform Command Buttons Do Not Carry Out The Code

I have recently obtained some help on code to bring up a user form based on cell change selection.

the code is as follows:

Dim c As Range
If Not Intersect(Target, Range("C6")) Is Nothing Then
With Sheets("Data Set").Range("D4:D43")
Set c = .Find(Range("C6").Value, LookIn:=xlValues)

If Not c Is Nothing Then
UserForm4.Show
End If
End With

End If

It brings up userform4, but the command buttons do not carry out the code behind them:

Private Sub CommandButton2_Click()

Sheets("Data Entry Form").Range("$C$6") = "Choose Employee"
Unload Me
End Sub


If I run user form seperate from the sheet and bring it up only in visual basic, it works...Any ideas???

PS this command button is no so it resets field C6. The other button is yes and performs copy paste function. Neither are operational when user form is brought up through the sheet change. Only works when initialized in VB.