Copy & Paste option disabled

Dear Extperts,
When I am using the following code in this workbook module, Copy and Paste option is disabled. Within the sheet is working but sheet to another sheet is not working.kindly advice how can i rectify this.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> "Dashboard" Then
Application.DisplayFormulaBar = True
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Else
Application.DisplayFormulaBar = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End If
End Sub

Thanks for your reply,herewith I enclosed sample excel sheet, when i copy the date from sheet2 and if i paste the same in sheet 3 is not working.