Hi all,

I have written the below code for making the cells from column to A to
BB fill with red colour, if they have a negative value in them.

I can't seem to make it work. Any help will be appreciated! Thanks
very much!

Shivam

******************************
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Const ColumnsToCheck As String = "A:BB"
If Not Intersect(Target, Range(ColumnsToCheck)) Is Nothing Then
If Target.Value < 0 Then
Target.Value.Select
Selection.Interior.ColorIndex = 3
End If
End If
End Sub

Check your other post.

"Shivam.Shah" wrote:
>
> Hi all,
>
> I have written the below code for making the cells from column to A to
> BB fill with red colour, if they have a negative value in them.
>
> I can't seem to make it work. Any help will be appreciated! Thanks
> very much!
>
> Shivam
>
> ******************************
> Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> Const ColumnsToCheck As String = "A:BB"
> If Not Intersect(Target, Range(ColumnsToCheck)) Is Nothing Then
> If Target.Value < 0 Then
> Target.Value.Select
> Selection.Interior.ColorIndex = 3
> End If
> End If
> End Sub

--

Dave Peterson

Thanks a lot!

On Feb 16, 5:23*pm, Dave Peterson <peter...@verizonXSPAM.net> wrote:
> Check your other post.
>
>
>
> "Shivam.Shah" wrote:
>
> > Hi all,
>
> > I have written the below code for making the cells from column to A to
> > BB fill with red colour, if they have a negative value in them.
>
> > I can't seem to make it work. Any help will be appreciated! Thanks
> > very much!
>
> > Shivam
>
> > ******************************
> > Private Sub Worksheet_Change(ByVal Target As Excel.Range)
> > * * Const ColumnsToCheck As String = "A:BB"
> > * * If Not Intersect(Target, Range(ColumnsToCheck)) Is Nothing Then
> > * * * *If Target.Value < 0 Then
> > * * * * Target.Value.Select
> > * * * * Selection.Interior.ColorIndex = 3
> > * * End If
> > * End If
> > * End Sub
>
> --
>
> Dave Peterson