Code:
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
i want 5th column text=bold
Last edited:
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
and if it is just the 5th column....i want 5th column text=bold
Sub ThirdClass()
Dim Finalrow As Long
Finalrow = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(1, 5), Cells(Finalrow, 5)).Font.Bold = True
End Sub
Sub ThirdClassMethod1()
'need to check it's not working
Dim Finalrow As Long
Dim i As Double
Finalrow = cells(65536, 1).End(xlUp).Row
For i = 1 To Finalrow
cells("A" & i & ":E" & i).Bold = True
Next i
End Sub
Sub ThirdClass()
Dim Finalrow As Long
Finalrow = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(1, 1), Cells(Finalrow, 5)).Font.Bold = True
End Sub
i want 5th column text=bold
Sub ThirdClass_V2()
' 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, 5).Font.Bold = True
Next i
End Sub
Thank you for your Valuable suggistion
cant we try with this code
How it will work?
Code:For i = 1 To Finalrow cells("A" & i & ":E" & i).Bold = True
Code:For i = 1 To Finalrow cells(1, 1).Resize(, 5).Font.Bold = True