主题：关于如何批量审核复选框已选中的行

你好 我已经调用出了 复选框 Tables("佣金明细").ShowCheckBox = True

请问如何修改下面的代码使得能批量审核已选定的行呢
If User.Group = "行政部" Then
    Tables("佣金明细").Current("审核") = User.Name
    Tables("佣金明细").Current("审核日期") = Date.Today()
    Tables("佣金明细").Current.Save()
Else
    MessageBox.show("你无审核权限!")
End If 

谢谢