ขอความช่วยเหลือหน่อยค่ะ ติด error 13 ตัวนี้ค่ะ แก้ยังไงคะ

Sub create_report()
Dim sh1 As Worksheets
Dim k As Integer

Set sh1 = Worksheets("summery")   ****ติดตรงนี้ค่ะ****

k = sh1.Range("B3", sh1.Range("B2").End(x1Down)).Rows.Count
MsgBox k

End Sub