Vba code invoke

Help Activities
, ,
1

i"m formating excel sheet by invoking vba code
in that i’m crating a sum of entire column by this below code
Sub AutoSum()
Dim Rng As Range
Dim c As Range
Set Rng = Range(“E1:E” & Range(“E1”).End(xlDown).Row)
Set c = Range(“E1”).End(xlDown).Offset(1, 0)
c.Formula = “=SUM(” & Rng.Address(False, False) & “)”
Set Rng = Range(“F1:F” & Range(“F1”).End(xlDown).Row)
Set c = Range(“F1”).End(xlDown).Offset(1, 0)
c.Formula = “=SUM(” & Rng.Address(False, False) & “)”
Set Rng = Range(“G1:G” & Range(“G1”).End(xlDown).Row)
Set c = Range(“G1”).End(xlDown).Offset(1, 0)
c.Formula = “=SUM(” & Rng.Address(False, False) & “)”
Set Rng = Range(“H1:H” & Range(“H1”).End(xlDown).Row)
Set c = Range(“H1”).End(xlDown).Offset(1, 0)
c.Formula = “=SUM(” & Rng.Address(False, False) & “)”

End Sub

i wants to make bold that sum value by code can anyone help me ?

2

@Anil_G @sangeethaneelavannan1 @Rahul_Unnikrishnan do you have any idea?

3

Hello @pravin_bindage

I hope you can do as below

Worksheets(“Sheet1”).Range(“A1:A5”).Font.Bold = True

Thanks

4

but Last row value is not fixed its changing for each excel file

5

Hi @pravin_bindage

Can you try like this syntax

Worksheets("Sheet1").Range("A:A").Font.Bold = True

Check out this link

How to Bold Text using VBA in Excel - Spreadsheet Planet.

Regards
Gokul