genius wanted VBS
Simple. Target can be multiple cells when you copy a range of data like rows
or columns.. You need to have a for loop to look at every cell.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
for each cell in Target
cell.Font.Size = 10
cell.Interior.ColorIndex = 0
cell.Font.Size = 14
cell.Interior.ColorIndex = 24
next cell
End Sub
"lost in Chicago" wrote:
Got this to work but it wont let me copy and paste rows or coumns need to
exclude then from the VBS any ideas?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Font.Size = 10
Cells.Interior.ColorIndex = 0
Target.Font.Size = 14
Target.Interior.ColorIndex = 24
End Sub
|