标题：请教:如果一个表中有几处用到自定义的目录树自动输入

如果一个表中有几处用到自定义的目录树自动输入,那么在窗口的CellButtonClick中如何输入代码?是否这样?
 

If e.Col.Name = "第三列"
    e.Cancel = True '取消默认动作
    Forms("窗口1").Open()
End If
 

If e.Col.Name = "第五列"
    e.Cancel = True '取消默认动作
    Forms("窗口2").Open()
End If
 

If e.Col.Name = "第八列"
    e.Cancel = True '取消默认动作
    Forms("窗口2").Open()
End If

Select Case e.Col.Name
    Case "第三列"
        e.Cancel = True '取消默认动作
        Forms("窗口1").Open()
  Case "第五列","第八列"
        e.Cancel = True '取消默认动作
        Forms("窗口2").Open()
End Select

应该用Select Case语句

谢谢二位