Copy and paste don’t work, except via clipboard.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CommandBars("Cell").Reset
Dim kg As Integer
kg = "kind of great"
   If Sheets(1).[b28] = kg And IsEmpty(Sheets(1).[c28]) Then
      Sheets(1).[c28].Interior.ColorIndex = 3
   Else
      Sheets(1).[c28].Interior.ColorIndex = -4142
   End If

End Sub

How can I get the function copy and paste work again?

I'd appreciate any help in this

Thanks!