obj.FindElementByName("year").SendKeys(ThisWorkbook.Sheets("Data").Range("H2").Value)
This first line work simple but