Format selected cell(s) with border

[rbobcat1]

Having problem getting the code to work to create a dark bottom border on cells I select;
The Range will only process in the "A1105:G1105" row of my sheet.
I want it to work on whatever Row/Cell(s) I select.

>>> use code - tags <<<

'Sub DarkUnderscore()
'
' DarkUnderscore Macro
' create dark underscore in selected cell(s)
'
' Keyboard Shortcut: Ctrl+d
'
    Range("A1105:G1105").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
~ ~ ~ ~ ~

rest of code is in attached txt file.

 

[vletm]

rbobcat1
Have You tried to remove Range("A1105:G1105").Select from Your code?

 

[rbobcat1]

yes and just left it as Range(":").Select but that does not work

 

[vletm]

rbobcat1
Have You tried to remove Range("A1105:G1105").Select from Your code?
Of course, You can do what do You want to do ...
My idea was to r-e-m-o-v-e that whole line
... then Your selection is done before You'll run that code.
If You left ... as You have done ... then of course, that doesn't work!

 

[rbobcat1]

That doesn't work either

 

[vletm]

Did You select manually Your wanted selection before You run that code?
Now I even checked You txt-file ...
>> Why did You pasted ... 'something' with Your thread?
If You make a selection from Your sheet
and
after that run Your Example ... it ... works as it has written!
= I selected those five cells and run Example ...
what is Your point ... challenge?

 

[rbobcat1]

I deleted the current module and started over then deleted the line like you recommended and it worked
Thank you..
Point... Challenge... confused.