有没有人帮帮忙,该如何处理

有没有人帮帮忙
Private Sub CommandButton1_Click()
Dim target As Range
Dim s As Double
If target = 3 Then
If target.Value = "广东广州" Then
s = excelobj.cell(i, 1)

Debug.Print s
End If
End If

End Sub
为什么不能运行


[解决办法]