求助！自动隐藏工作表

小白不懂vba，网上抄的代码，根据复选框来决定工作表是否隐藏，A列是工作表名，B列超链接，代码写完了没用，
估计是名称引用出问题了，问题在哪里啊？
代码如下
Private Sub worksheet_change(ByVal target As Range)
On Error Resume Next
m = Range("A" & target.Row)
If target.column= 5 And Range("E" & target.Row) = "false" Then
Worksheets(m).Visible = 0
ElseIf target.column= 5 And Range("E" & target.Row) = "true" Then
Worksheets(m).Visible = -1
Else
End If
End Sub