Excel format

[giddyhead]

Good Day,

Is there a website or vba script that you can upload a excel document and it shows the vba formatting of the excel document similar as below? Thanks

.Range("A1:" & ColumnLetter(RsG.Fields.Count) & "1").Borders(xlEdgeTop).Weight = XlBorderWeight.xlThick
.Range("A1:" & ColumnLetter(RsG.Fields.Count) & "1").Borders(xlInsideVertical).Weight = XlBorderWeight.xlThick
.Range("A1:" & ColumnLetter(RsG.Fields.Count) & "1").Borders(xlInsideHorizontal).Weight = XlBorderWeight.xlThick
.Range("A1:" & ColumnLetter(RsG.Fields.Count) & "1").Borders(xlEdgeBottom).Weight = XlBorderWeight.xlThick
.Range("A1:" & ColumnLetter(RsG.Fields.Count) & "1").Borders(xlEdgeRight).Weight = XlBorderWeight.xlThick
.Range("A1:" & ColumnLetter(RsG.Fields.Count) & "1").Borders(xlEdgeLeft).Weight = XlBorderWeight.xlThick
.Range("A2:" & ColumnLetter(RsG.Fields.Count) & "2").HorizontalAlignment = xlCenter

 

[arnelgp]

Record a Macro and format the cells you need.
when you are satisfied, Stop the Macro.
You may now Edit the macro you created to see the code it produced.

 

[giddyhead]

Arnelgp,

Thanks for the info. Will work at it and seek assistance if needed. Thanks