I have a user getting a run time error from the following code, but I can't see how - any suggestions?

Private Sub buttonViewPatient_Click()
Application.ScreenUpdating = True
ActiveWindow.DisplayWorkbookTabs = True
Sheets("data").Select
End Sub