View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Gary''s Student Gary''s Student is offline
external usenet poster
 
Posts: 11,058
Default how do I lock the fill color in a cell

This is an example using cell A1:

1. set the background color of cell A1
2. enter the following macro in a standard module:

Public oldcolor As Integer
Public lockcell As Range
Sub remember()
If lockcell Is Nothing Then
Set lockcell = Range("A1")
oldcolor = lockcell.Interior.ColorIndex
End If
End Sub

3. Enter this event macro in the worksheet code area:

Private Sub Worksheet_Change(ByVal Target As Range)
If lockcell Is Nothing Then Exit Sub
If Intersect(lockcell, Target) Is Nothing Then Exit Sub
lockcell.Interior.ColorIndex = oldcolor
End Sub

4. run the remember macro
--
Gary''s Student - gsnu200832


"Graham" wrote:

Can i lock the fill color in a cell so when something is copied to that cell
it stays the locked color.

Thank You