Hide rows

[Panoos64]

Hi all, How to manege to hide the all rows except the bold (numbers or text) in column "A" range A4 and rows down, using VBA code?

Thank you all in advance

 

[njimack]

Sub Hide_Rows()

Dim LastRow As Long
Dim rng As Range
Application.ScreenUpdating = False
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For Each rng In Range(Cells(4, 1), Cells(LastRow, 1))
    If rng.Font.Bold = True Then rng.EntireRow.Hidden = True
Next rng
Application.ScreenUpdating = True
End Sub

 

[Panoos64]

Hi njimack, the code run and works but just i need the versa. The bold should remain unhide. Thank you for your support and your time spent for my project.

 

[Fluff]

How about

Sub Panoose64()
   Dim Cl As Range
   
   For Each Cl In Range("A4", Range("A" & Rows.Count).End(xlUp))
      Cl.EntireRow.Hidden = Not Cl.Font.Bold
   Next Cl
End Sub

 

[Panoos64]

Thank u Fluff, it works perfect!, thank u once again for your support, your help and your time! Have a great day

 

[Fluff]

You're welcome & thanks for the feedback