Hi
If you want absolutely a macro, i purpose this solution
![]()
For i = 1 To last row For j = 1 To last column If Cells(i, j) < 0 Then Cells(i, j).Select Selection.Font.ColorIndex = 3 End If Next j Next i
Hi
If you want absolutely a macro, i purpose this solution
![]()
For i = 1 To last row For j = 1 To last column If Cells(i, j) < 0 Then Cells(i, j).Select Selection.Font.ColorIndex = 3 End If Next j Next i
Last edited by VBA Noob; 03-03-2007 at 04:44 PM.
Raiby,
Please in future wrap your code. I've done it for you on this occassion
VBA Noob
_________________________________________
![]()
![]()
Credo Elvem ipsum etian vivere
_________________________________________
A message for cross posters
Please remember to wrap code.
Forum Rules
Please add to your signature if you found this link helpful. Excel links !!!
Sorry.I will try remember to do it.Originally Posted by VBA Noob
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks