UDF to set borders or draw line in current cell

I'd like to have a UDF, e.g. Function DrawLine (LinTyp as String) as string

Such that if cell A1 contains "\", then a cell containing: =DrawLine(A1) , should draw a DiagonalDown line
Similar:
=DrawLine("/") draws a DiagonalUp,
=DrawLine("H") draws a line on the EdgeTop
=DrawLine("L") draws a line on the EdgeDown

etc, etc. In fact I managed to achieve something using formatting the borders of a cell. Unfortunatly the piece of code I have (generated with the Record Macro feature), crashes Excel everytime I enter the function in a cell.

So how would it be possible to have such a function to draw lines (or alternatively set borders)??

_Wim_

Care to eleborate more on Event macro? I don't know this feature..

Then again, why would this code not do the job: (just an initial piece of code, it always draws a / in side a cell)

Please Login or Register  to view this content.

It seems that the code sets the border, but doesn't reset... I changed the code as below.

Set cell A1, B1, C1, D1, to resp "0", "1", "2", "3". Lets refer to as "controlling cells"
set cell A4, B4, C4, D4 to =DrawLine(A1), =DrawLine(B1), =DrawLine(C1), =DrawLine(D1),

What happens is that cell B4 and C4 will get a DiagonalUp border, respectivly a DiagonalDown border. Cells A4 and D4 gets a comment

Now change cells A1 to 1, then to 2, then to 3 What happens is that indeed the comment field follows the "controlling cell", but the Diagonal borders are just added and never removed... So ".LineStyle = xlNone" does not clear the border...
Would it anyway possible to let the function behave as expected?

Please Login or Register  to view this content.