Try:

Sub thara95()
Workbooks("dataworkbook.xlsx").Sheets(sitename).Activate
End Sub