HFM Smartview VBAコード

Question

私は以下のコードをSmartviewに使用しています。このコードでは、1枚のシート（シート名 "POV"）を除外して、上記のシートを除外するコードを変更する方法を示します。私を助けてください。

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

だけ変更：

Sheets(i).Select 
HypMenuVRefresh 

へ：あなたの助けを

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