I have compiled the below code, when i copy from wb1 and go to copy into wb2
paste option is not available unless i open a new excel session.  Think it
may have something to do with the clipboard.  Any suggestions?

Public Switching As Boolean
Private Sub Workbook_activate()
   DisableCutAndPaste
   Switching = True
   End Sub
Private Sub Workbook_Deactivate()
   EnableCutAndPaste
   Switching = True
End Sub
Private Sub DisableCutAndPaste()
 EnableControl 21, False   ' cut
 EnableControl 19, True   ' copy
 EnableControl 22, False   ' paste
 EnableControl 755, False  ' pastespecial
 Application.OnKey "^c"
 Application.OnKey "^v", ""
 Application.OnKey "+{DEL}", ""
 Application.OnKey "+{INSERT}", ""
 Application.CellDragAndDrop = False
End Sub

Private Sub EnableCutAndPaste()
 EnableControl 21, True   ' cut
 EnableControl 19, True   ' copy
 EnableControl 22, True   ' paste
 EnableControl 755, True  ' pastespecial
 Application.OnKey "^c"
 Application.OnKey "^v"
 Application.OnKey "+{DEL}"
 Application.OnKey "+{INSERT}"
 Application.CellDragAndDrop = True
End Sub

Private Sub EnableControl(Id As Integer, Enabled As Boolean)
 Dim CB As CommandBar
 Dim C As CommandBarControl
 For Each CB In Application.CommandBars
   Set C = CB.FindControl(Id:=Id, recursive:=True)
   If Not C Is Nothing Then C.Enabled = Enabled
 Next
End Sub
Private Sub Workbook_Open()
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
   Sheets(i).Visible = True
Next i
Sheets("Warning").Visible = xlVeryHidden
Application.ScreenUpdating = True
End Sub

Private Sub Workbook_beforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Sheets("Warning").Visible = True
  If Sheets(i).Visible = True And Sheets(i).Name <> "Warning" Then
     Sheets(i).Visible = xlVeryHidden
  End If
Next i
Application.DisplayAlerts = False
EnableCutAndPaste
End Sub