Run UserForm When Linked Cell Is Empty

[pwebley]

I have a userform that appears as soon as my workbook is open and it requires that you enter your first and last name. It then dumps the name into a linked cell. I need help making that userform reappear if the contents of the linked cell are deleted or if it is empty. Any help will be appreciated.

 

[Andrew Poulsom]

What's the address of the linked cell? You could use the Worksheet_Change event procedure, test if it's blank and, if so, show your UserForm.

 

[pwebley]

On "ThisWorkbook" I have:

Private Sub Workbook_Open()
userform1.TextBox1.SetFocus
userform1.Show
End Sub

When I click submit this is what happens:

Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then
MsgBox "Please enter your name in the text field"
Me.TextBox1.SetFocus
Else
Range("C2").Value = userform1.TextBox1.Text
userform1.Hide
End If
End Sub

Where would I put "Worksheet_Change event procedure?" I appreciate your help.

 

[Andrew Poulsom]

It goes in the module for the Worksheet.

 

[pwebley]

This is what I put in my Module1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target(2, 3) = "" Then
useform1.Show
End If
End Sub

A box keeps appearing that prompts me to select a macro name. Not sure how to get this to work.

 

[rs2k]

[Code:]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") = "" Then
UserForm1.Show
End If
End Sub
[/Code]

 

[pwebley]

Thanks for the help, however, it still asks for a macro name when I attempt to run it. I have several macros in the workbook and a list of them appears but I do not want them associated with this feature. Is this code supposed to be in Module1 of the workbook? All of the macros in Module1 begin with "Sub" while this code begins with "Private Sub." Thanks for your help. Sorry I need so much help.

 

[Andrew Poulsom]

Is it?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$C$2" Then Exit Sub
    If Target.Value = "" Then
        userform1.Show
    End If
End Sub

 

[pwebley]

This is what is in there:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("C2") = "" Then
UserForm1.Show
End If
End Sub

I changed it to what you just showed and it still prompted me for a macro. I fear this is a very simple fix and that perhaps I haven't communicated my objective properly.

 

[Andrew Poulsom]

The code I posted should work.