HFM Smartview VBA CODE

Question

I am using the below code for Smartview. In this Code I want to exclude one sheet (Sheet name "POV") how to modify the code to exclude the above sheet. Please help Me.

Private Declare PtrSafe Function HypMenuVRefresh Lib "HsAddin" () As Long

Sub refreshWS()

    Dim Count, i As Integer

    i = 1

    Count = Worksheets.Count

    Do While i <= Count
        pctCompl = (i - Count)
        Application.StatusBar = "TOTAL WORKSHEETS    " & Count & "   " & pctCompl & "  " & "SHEETS PENDING "
        Application.Wait Now + TimeValue("00:00:01")

          Sheets(i).Select


        Call HypMenuVRefresh


        i = i + 1

   Loop

    MsgBox "ALL SHEETS COMPLETED"

Application.StatusBar = "COMPLETED"


End Sub

Answer 1

Just change:

Sheets(i).Select
HypMenuVRefresh

To:

If Worksheets(i).Name<>"POV" Then
    Worksheets(i).Select
     HypMenuVRefresh
End If