Simplifying properties of a cell

[Bob Parr]

Hi guys,

I've just started working on VBA this week and I was writing a small piece of code. I am just wondering if there is a way to simplify the following:

If ActiveCell.Value < 0 Then


ActiveCell.Interior.ColorIndex = 3

ActiveCell.Font.Bold = True

ActiveCell.Offset(0,1).Value = "Incorrect"

ActiveCell.Offset(0,1).Font.Color = vbRed


End If


Thanks in advance for any help

 

[pike]

hi bob,
not really with what you are doing
but vba is object based so its good to use the with structure

with activecell
If .Value < 0 Then
.Interior.ColorIndex = 3
.Font.Bold = True
.Offset(0,1).Value = "Incorrect"
.Offset(0,1).Font.Color = vbRed
End If
end with

 

[Bob Parr]

Thanks for replying so fast
I will look into the with structure

 

[pike]

Hi Bobby
if its just one fixed cell/range you could use conditional formating and avoid vba