Dim rule As New AnyValueDataValidationRule() rule.InputMessageTitle = "Experience" rule.InputMessageDescription = "Please list the frameworks your have experience with in this box" Me.XamSpreadsheet1.Workbook.Worksheet s (0).Rows(20).Cells(3).DataValidationRule = rule