const xlValidAlertStop = 1 const xlBetween = 1 const xlValidateList = 3 set objXls = CreateObject("Excel.Application") objXls.Visible = True set wrkBook = objXls.Workbooks.add() set wrkSheet = wrkBook.Worksheets(1) wrkSheet.Activate() wrkSheet.Range("A65535") = "Yes" wrkSheet.Range("A65536") = "No" set tmp = wrkSheet.Range("A65535:A65536") set RowRange = wrkSheet.Range("A1") RowRange.value="Akhil" 'RowRange.Interior.ColorIndex = 5 With RowRange.Validation ..Add xlValidateList, xlValidAlertStop, xlBetween, "=$A535:$A536" ..InCellDropdown = True End With Submitted via EggHeadCafe - Software Developer Portal of Choice Simple .NET HEX PixelColor Utility [URL]http://www.eggheadcafe.com/tutorials/aspnet/5617a491-963d-4510-b8f1-1863ddf52bc1/simple-net-hex-pixelcolor-utility.aspx[/URL]