Speed up the macro coding 150 sheets

Hello All,

I have report contains more than 150 sheets, so based on the “H” column It will visible also every sheet “F1” cell needs to update the “True” if the sheets were visible then. So here the problem is it will take too much time to visible the sheets and update the “F1” cell value.

Can you suggest me how to speedy the below said macro?.

Sub Ran_Select()

LRow = ThisWorkbook.Sheets("Summary").Range("H10").End(xlDown).Row

For i = 10 To LRow
ws = Worksheets("Summary").Range("E" & i).Value

         If Worksheets("Summary").Range("H" & i).Value = "YES" Then

                Worksheets(ws).Visible = True
                Worksheets(ws).Range("F1").Value = True
                
            Else
                Worksheets(ws).Visible = False
                Worksheets(ws).Range("F1").Value = False
End If
Next i
MsgBox ("It's done")

Sheets(“Summary”).select

End Sub

Thanks/Raju