Thick line between columns

[Graechel]

I have a need to visibly separate Columns with a thick vertical line. Don't want any horizontal line other than normal gridline.
I have worked around by inserting blank columns with fill and narrowing the width but would prefer to maintain continuity
of column numbering rather than alternate numbering.
Sheet is relatively small, approximately 75 columns with 250 rows.

Do I draw a line, is there a way to only number alternate columns or am I stuck with my blank columns??
Am using 2010 and 2013.

Happy New Year to all you wonderful volunteers. You ARE appreciated.

 

[maabadi]

Please upload Example file with minimum 5-10 rows and show desired results. it prefer to do with XL2BB ADDIN or upload at free hosting site e.g. www.dropbox.com and input link here

 

[maabadi]

If you can work with macros use this code at VBA (ALT + F11) and run it.

Sub LeftBorder()
Dim cell As Range
Dim Lr As Long
Dim Lc As Long
Dim Rng As Range

Lr = Cells(Rows.Count, 1).End(xlUp).Row
Lc = Cells(1, Columns.Count).End(xlToLeft).Column
Set Rng = Range(Cells(1, 1), Cells(Lr, Lc))

For Each cell In Rng
If cell.Value <> "" Then
With cell.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
End If
Next cell
End Sub

 

[Graechel]

Thanks Mabaadi.
I am self training as I go so need to reverse engineer to understand fully then apply to all my Sheet. (210 rows, A-BD Columns)
With family matters in way at moment I may be some time replying but I appreciate the information and assistance.
I will return, Thanks, Graechel

 

[maabadi]

Good Luck.
Lr is last rows and finding last row have data at used range.
LC is Also for finding Last Column.

 

[Graechel]

Maabadi,
Many thanks for your input.
It works like a dream and solved my problems as well as giving me an excellent advance with my learning.
Had to use my head a little as many Cells were blank but I managed in the end.
Again my thanks and I wish you the greatest of years to come,
Graeme

 

[maabadi]

You're Welcome & Thanks for Feedback.