Skip to content

Instantly share code, notes, and snippets.

@harsha547
Created June 10, 2017 12:05
Show Gist options
  • Save harsha547/b042b89e955c9bc9f7df0d813e694706 to your computer and use it in GitHub Desktop.
Save harsha547/b042b89e955c9bc9f7df0d813e694706 to your computer and use it in GitHub Desktop.
Private Sub UserForm_Initialize()
With chDays
.AddItem "Monday"
.AddItem "Tuesday"
.AddItem "Wednesday"
End With
End Sub
----------------------------------------------------
Private Sub cbOk_Click()
If chDays.LastIndex = -1 Then
MsgBox "Nothing Selected"
Else
MsgBox "Selected Item : " & chDays.Value
End If
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment