I found the following macro,but it does'ntOn 2002-08-25 08:26, verluc wrote:
Have somebody a macro,which can give a colour to the active cell?
Is this possible in "This workbook"
Many thanks
Sorry,but it does'nt work for me.On 2002-08-25 08:57, JayMenon wrote:
Hi !
The following code can do it !!
Sub colcell()
ActiveCell.Interior.Color = vbRed
End Sub
Thanks
Hi Jack,On 2002-08-25 10:10, Jack in the UK wrote:
Hi try this this one that was effecting my testing i use this : and it will work, DON not put in module but in he sheet required and will work
Private Sub Worksheet_SelectionChange(ByVal target As Range)
If Intersect(Range("A1:IV65536"), Range(target(1).Address)) _
Is Nothing Then Exit Sub
Cells.Interior.ColorIndex = xlNone
ActiveCell.Interior.Color = vbCyan
End Sub
Thanks Jack,On 2002-08-25 10:47, Jack in the UK wrote:
Im useing that exact code now Windows XP Pro and Office XP Pro both FULL product and full installs???
No error
Try this version.. the code please put in the sheet not in its own module. [Microsoft Excel Object] Sheets as require.
Private Sub Worksheet_SelectionChange(ByVal target As Range)
If Intersect(Range("A1:IV65536"), Range(target(1).Address)) _
Is Nothing Then Exit Sub
Range("A1:IV65536").Interior.ColorIndex = xlNone
ActiveCell.Interior.Color = vbCyan
End Sub
No errors or debug, as tested. Should be OK