VBA将红色行复制到新工作表

Question

我在审计书中使用了两个代码来创建用于更正的摘要工作表。我的第二个代码有问题，该代码旨在查找带有红色文本的任何行并将其复制到新工作表中。我相信它可能会实现我的预期，但是却将计算机锁定了。任何建议都将有所帮助。

tell application "System Preferences"
activate
reveal (pane id "com.apple.preference.universalaccess")
end tell


tell application "System Events"
    tell process "System Preferences"
        tell window "Accessibility"
            tell table 1 of scroll area 1
                delay 1
                select (row 4)
            end tell
            click checkbox "Use grayscale"
        end tell
    end tell
end tell
tell application "System Preferences" to quit