Error 9 when rename worksheet from another workbook

Question

I\'m trying to rename a worksheet from another workbook but I\'m getting Error 9

Dim dbWb As Workbook Set dbWb=Workbooks.Open("Data.xlsx") \'th