am i missing something in code?

[bhandari]

Sub ThirdClass()
Dim Finalrow As Long
i As Double
Finalrow = cells(65536, 1).End(xlUp).Row
For i = 1 To Finalrow
cells(1, 1).Resize(, 5).Font.Bold = True
Next i
End Sub

error=statement invalid outside type block
i want 5th column text=bold

 

[hiker95]

Thank You @hiker95

can u please check #6
i want to use that code to get the output

Bhandari,

Try the following:

Sub ThirdClass_V3()
' hiker95, 10/28/2017, ME1029086
Dim Finalrow As Long
Dim i As Long
Finalrow = Cells(65536, 1).End(xlUp).Row
For i = 1 To Finalrow
  Cells(i, 1).Resize(, 5).Font.Bold = True
Next i
End Sub

 

[MARK858]

Hiker95 has shown you in post number 11 how to loop through the range.

If you want to use the range rather than cells without looping it is

Sub ThirdClass()
Dim Finalrow As Long
Finalrow = Cells(Rows.Count, 1).End(xlUp).Row

Range("A1" & ":E" & Finalrow).Font.Bold = True

End Sub

or

Sub ThirdClass2()
Dim Finalrow As Long
Finalrow = Cells(Rows.Count, 1).End(xlUp).Row

Range("A1").Resize(Finalrow, 5).Font.Bold = True

End Sub

although the 2nd code is more inefficient than the 1st

 

[bhandari]

Awsome now i get it
which one to choose

 

[hiker95]

Bhandari,

If you want to learn more about VBA, see the following link, reply #2:

https://www.mrexcel.com/forum/general-excel-discussion-other-questions/1026346-vba.html#post4926066

 

[hiker95]

Bhandari,

One more try:

Sub ThirdClass_V4()
' hiker95, 10/28/2017, ME1029086
Dim Finalrow As Long
Finalrow = Columns("A:E").Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Range("A1:E" & Finalrow).Font.Bold = True
End Sub

 

[bhandari]

cool.VBA getting more intresting

 

[hiker95]

Bhandari,

Thanks for the feedback.

You are very welcome. Glad we could help.

And, come back anytime.

 

[MARK858]

Just to complete my postings...

Sub ThirdClass4()
Range("A1:E" & Range("A" & Rows.Count).End(xlUp).Row).Font.Bold = True
End Sub

or

Sub ThirdClass5()
Range("A1:E" & Columns("A:E").Find("*", , xlValues, , xlByRows, xlPrevious).Row).Font.Bold = True
End Sub