Draw line in a specific cell and change font color

[imageicb]

I have a button that when you click it it inserts a line via the below code:

Sub test()
ActiveSheet.Shapes.AddLine(100, 300#, 300, 300).Select
End Sub

How can I tell it to draw the line in a specific cell (AM13, P15,ect.). Also I would like it to turn the font of any data in the cells that ar lined out white.

Is it also possible that upon another click it will remove the line and return the font to black.

Any help would be great,

Thanks

 

[imageicb]

ok i added as follows:

Sub removet()
Range("line").Select
On Error Resume Next
For Each cll In Selection.Cells
cll.Font.ColorIndex = xlAutomatic
For Each shp In ActiveSheet.Shapes
If shp.Type = msoLine And shp.TopLeftCell.Address = cll.Address Then shp.Delete
Next shp
Next cll
End Sub

The addition of the On Error Resume Next allowed it to compete but upon completion all of my drop downs (from data validation) were removed.

 

[p45cal]

Data Validation arrows are shapes but don't have a topleftcell property, so I split the .type and .topleftcell question:

Sub test3()
For Each cll In Selection.Cells
  cll.Font.ColorIndex = xlAutomatic
  For Each shp In ActiveSheet.Shapes
    If shp.Type = msoLine Then
      If shp.TopLeftCell.Address = cll.Address Then shp.Delete
    End If
  Next shp
Next cll
End Sub

 

[imageicb]

Ahhh thank you I didnt know that. Thank you very much.

 

[p45cal]

I didnt know that.

Nor did I.