excel vba 子过程和函数未定义

子过程和函数未定义，如何修改
Sub selyear()
Dim x As Range, i As Integer
For i = 3 To 10 Step 1
For Each x In Range("A:A")
If cell(i, "P").Value = x.Value And x.Offset(4, 0).Value = "哈哈哈" Then
cell(i, "R").Value = x.Offset(5, 0).Value
End If
Next
Next
End Sub

将Worksheet("sheet2").[c4].Select
改为Worksheet("sheet2").Range("c4").Select
试试看
请采纳答案，支持我一下。