VBAエラー

質問

下のもので、
rangeクラスのselectメソッドが失敗しました　がでてしまいます。
★★★のところで止まってしまいます。
1つ目のエクセルで、ファイル名を入力、検索して開き、8行目でオートフィルタをするマクロです。
オートフィルタのところで止まります。
どこが悪いのか、ご教授いただけませんでしょうか。
よろしくお願い致します。

Sub ファイルを開く()
　Dim str As String
　 Dim nCnt As Integer
　Dim sHozon As String
　Dim sFilename As String
Dim Grp As String

If Range("B2").Value <> "バーコード読み取り" Then
'保存場所を指定
sHozon = "※※※"
Grp = Right(Range("B2"), Len(Range("B2")) - InStr(Range("B2"), "F"))

'ファイル名を設定
sFilename = "AA" & Left(Range("B2"), 10) & ".xls"
'ファイルが存在しているか確認
str = sHozon & "\" & sFilename
str = Dir(str)

If (str <> sFilename) Then
'ファイルが存在しない場合、エラー
MsgBox ("ファイルが存在しません")

Else
'ファイルを開く
Range("B2").Select
Workbooks.Open sHozon & "\" & sFilename

End If
End If
Workbooks(sFilename).Activate
Sheets("B").Select
ActiveSheet.Unprotect
Workbooks(sFilename).Activate
Rows("8:8").Select　　　★★★
Selection.AutoFilter
ActiveSheet.Range("$A$8:$BL$1008").AutoFilter Field:=58, Criteria1:=Grp

回答No.1

kkkkkm · ベストアンサー

ActiveSheet.Rows("8:8").Select

にしてみてはいかがですか。

お礼

ありがとうございます。
とても早く教えていただけて、大変助かりました。
感謝します。