User Form Check Box Data Entry Multi Options

[raccoon588]

I have a user form with three options. I need to be able to select 1 of the options, two of them, or all three. i have the following code but if the first if statement is not true it does not work at all. how do i get it to allow for any selection combination at any time to work?

Private Sub CmdSubmit_Click()


Dim c As Range
If ChkPlantManager Then
Set c = Range("A5:A9999").Find(Date).Offset(1, 24)
If Not c Is Nothing Then c.Select
ActiveCell.Value = "Plant Manager"
If ChkPLM Then
Set c = Range("A5:A9999").Find(Date).Offset(2, 24)
If Not c Is Nothing Then c.Select
ActiveCell.Value = "Plant Line Manager"
If ChkForeman Then
Set c = Range("A5:A9999").Find(Date).Offset(3, 24)
If Not c Is Nothing Then c.Select
ActiveCell.Value = "Foreman"
End If
End If
End If
End Sub

 

[Fluff]

Try

Private Sub CmdSubmit_Click()


Dim c As Range
If ChkPlantManager Then
   Set c = Range("A5:A9999").find(Date).Offset(1, 24)
   If Not c Is Nothing Then c.Select
   activecell.Value = "Plant Manager"
End If
If ChkPLM Then
   Set c = Range("A5:A9999").find(Date).Offset(2, 24)
   If Not c Is Nothing Then c.Select
   activecell.Value = "Plant Line Manager"
End If
If ChkForeman Then
   Set c = Range("A5:A9999").find(Date).Offset(3, 24)
   If Not c Is Nothing Then c.Select
   activecell.Value = "Foreman"
End If
End Sub

 

[raccoon588]

This worked perfectly, Thank you

 

[Fluff]

Glad to help & thanks for the feedback