Real simple VBA not sure why I cannot paste.
 

Here is the code i have. I have tried something with the cutcopymode with no luck. I can copy a cell, but I can't paste it anywhere. The cell I am trying to paste in is "D13", but it won't paste. Help!!!! Sometimes the most simplest is hard to see

Private Sub Worksheet_SelectionChange(ByVal Target As Range
Sheets("Casp Placements").Range("A3", "A138").Interior.ColorIndex =
Sheets("Casp Placements").Range("B3", "B138").Interior.ColorIndex = 4
Sheets("Casp Placements").Range("C3", "C138").Interior.ColorIndex = 3
Sheets("Casp Placements").Range("D3", "F138").Interior.ColorIndex =

End Sub

Real simple VBA not sure why I cannot paste.
 

It's pretty simple to see that your code has nothing to do with copy or
paste.

"Jason" wrote in message
...
Here is the code i have. I have tried something with the cutcopymode with
no luck. I can copy a cell, but I can't paste it anywhere. The cell I am
trying to paste in is "D13", but it won't paste. Help!!!! Sometimes the most
simplest is hard to see.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("Casp Placements").Range("A3", "A138").Interior.ColorIndex = 4
Sheets("Casp Placements").Range("B3", "B138").Interior.ColorIndex = 45
Sheets("Casp Placements").Range("C3", "C138").Interior.ColorIndex = 33
Sheets("Casp Placements").Range("D3", "F138").Interior.ColorIndex = 6

End Sub

Real simple VBA not sure why I cannot paste.
 

I will search through whole sheet code and workbook code to see if something is affecting this sheet. Thanks

----- Greg Koppel wrote: ----

It's pretty simple to see that your code has nothing to do with copy o
paste

"Jason" wrote in messag
..
Here is the code i have. I have tried something with the cutcopymode wit
no luck. I can copy a cell, but I can't paste it anywhere. The cell I a
trying to paste in is "D13", but it won't paste. Help!!!! Sometimes the mos
simplest is hard to see
Private Sub Worksheet_SelectionChange(ByVal Target As Range
Sheets("Casp Placements").Range("A3", "A138").Interior.ColorIndex =
Sheets("Casp Placements").Range("B3", "B138").Interior.ColorIndex = 4
Sheets("Casp Placements").Range("C3", "C138").Interior.ColorIndex = 3
Sheets("Casp Placements").Range("D3", "F138").Interior.ColorIndex =
End Su