shapes

[del]

hi,
am trying to write code to display a small rectangle in
the next cell if the current cell is not empty.

example. A1 and B1 are blank but once data in entered
into A1, a rectangle should display in B1.

can anyone please help me with that?

thanx

 

[Kris]

del,

Well, the quick and dirty way would be to change the font
of the cell into Webdings or Wingdings like the following:

If Not IsEmpty(Range("A1")) Then
Range("B1").Font.Name = "Webdings"
Range("B1").Value = 1
End If

You have to play around with different characters to find
the shape that you want. Granted, this does not give you
much control over the exact specifications of your shape,
but you may find something satisfactory to what you want.