hello
i wanted to get both a cell's font colornumber as well as interior colornumber. i came out with this:
[VBA]
Sub findcolorfont()
Dim x As Integer
Dim y As Integer
If IsEmpty(ActiveCell) Then GoTo errhandler
x = ActiveCell.Font.ColorIndex
y = ActiveCell.Interior.ColorIndex
MsgBox "activecell font colornumber is - " & x & Chr(13) _
& "activecell interior colornumber is - " & y & Chr(13), vbExclamation, "get cell's colors"
Exit Sub
errhandler:
MsgBox " sorry sucker, cell is empty"
End Sub
[/VBA]
questions: what about cases when there is no font but the cell has an interior color .if cell has no interior color but has a font how can i replace the -4102 color number with the word "empty".is there an alternative to font number -4105.?
thanks