red box around selection cells

[lezawang]

Hi
I came cross this website/code which I found it a bit difficult to understand. The author said he got help from this forum to learn vba; so I figured, then it must be better/easier coding than this to do the same from someone from here. i would appreciate any help. Thanks a lot.

[FONT=&quot]Sub[/FONT][FONT=&quot] RedBox()[/FONT]
[FONT=&quot]'PURPOSE: Create a Red Box to Highlight Cell Selection[/FONT]
[FONT=&quot]'SOURCE: www.TheSpreadsheetGuru.com[/FONT]

[FONT=&quot]Dim[/FONT][FONT=&quot] Box [/FONT][FONT=&quot]As[/FONT][FONT=&quot] Shape[/FONT]

[FONT=&quot]'Create a Red Box based on Cell Selection[/FONT]
[FONT=&quot]  [/FONT][FONT=&quot]On[/FONT][FONT=&quot] [/FONT][FONT=&quot]Error[/FONT][FONT=&quot] [/FONT][FONT=&quot]GoTo[/FONT][FONT=&quot] Select_Cell:[/FONT]
[FONT=&quot]    [/FONT][FONT=&quot]Set[/FONT][FONT=&quot] Box = ActiveSheet.Shapes.AddShape( _[/FONT]
[FONT=&quot]      Type:=msoShapeRectangle, _[/FONT]
[FONT=&quot]      Left:=Selection.Left, _[/FONT]
[FONT=&quot]      Top:=Selection.Top, _[/FONT]
[FONT=&quot]      Width:=Selection.Width, _[/FONT]
[FONT=&quot]      Height:=Selection.Height)[/FONT]
[FONT=&quot]  [/FONT][FONT=&quot]On[/FONT][FONT=&quot] [/FONT][FONT=&quot]Error[/FONT][FONT=&quot] [/FONT][FONT=&quot]GoTo[/FONT][FONT=&quot] 0[/FONT]

[FONT=&quot]'Rename Box with Tag[/FONT]
[FONT=&quot]  Box.Name = Box.Name & "_RedBox"[/FONT]

[FONT=&quot]'Format the Red Box[/FONT]
[FONT=&quot]  Box.Fill.Visible = msoFalse[/FONT]
[FONT=&quot]  Box.Line.Visible = msoTrue[/FONT]
[FONT=&quot]  Box.Line.ForeColor.RGB = RGB(255, 0, 0)[/FONT]
[FONT=&quot]  Box.Line.Weight = 2.25[/FONT]

[FONT=&quot]Exit[/FONT][FONT=&quot] [/FONT][FONT=&quot]Sub[/FONT]

[FONT=&quot]'ERROR HANDLER[/FONT]
[FONT=&quot]Select_Cell:[/FONT]
[FONT=&quot]  MsgBox "Select a cell in order to use this button."[/FONT]
[FONT=&quot]    [/FONT]
[FONT=&quot]End[/FONT][FONT=&quot] [/FONT][FONT=&quot]Sub

[/FONT]https://www.thespreadsheetguru.com/blog/how-to-keep-track-of-your-shapes-created-with-vba-code[FONT=&quot]

[/FONT]

 

[My Aswer Is This]

So tell us what your wanting to do.

 

[lezawang]

Thanks for your reply. I basically want to do the same thing. put a red box around the selected cells. I would appreciate help to understand the code above or simpler version of that code. Thank you once again for all your help before and now.

 

[My Aswer Is This]

When you say Box do you mean Border

And how do you want this script activated?

Do you mean any time you select a cell you want a border around that cell.

And then the border removed if you select a new cell and then that new cell have a border

And what color do you want this border?

See I need specific details like this

 

[My Aswer Is This]

Me looking at that code does not look so long.
Depending on what you want.

If it meets you needs why does it need to be shorter?
What part do you not like?