VBA エクセル　複数行　10000行くらい　まとめて非表示

‘エクセル　A列が-1の行を非表示にする
オートフィルターの機能を使うことで高速化

Dim rng As Range
Dim strSTRING As String
strSTRING = -1

With wksTarget
Set rng = .Range(“A1:A35000”)
.AutoFilterMode = False
rng.AutoFilter Field:=1, Criteria1:=strSTRING
rng.SpecialCells(xlCellTypeVisible).Rows.Select
.AutoFilterMode = False
xls.Selection.EntireRow.Hidden = True

End With