Remove Underscores From Layer Names

tell application id "com.adobe.Photoshop"
    activate
    set displayDialogs to display dialogs
    set display dialogs to never
    tell document 1
        try
            set layerNames to name of layers whose name contains "_"
        on error
            return
        end try
        repeat with thisLayer in layerNames
            try
                set name of layer thisLayer to ¬
                    (my replaceUnderScores(thisLayer, "_", " "))
            end try
        end repeat
        try
            set layerNames to name of layers whose name contains "_"
            repeat with thisLayer in layerNames
                try
                    set name of layer thisLayer to ¬
                        (my replaceUnderScores(thisLayer, "_", " "))
                end try
            end repeat
        end try
    end tell
    set display dialogs to displayDialogs
end tell

on replaceUnderScores(someText, replaceThis, withThis)
    set originalText to someText
    set AppleScript's text item delimiters to replaceThis
    set tempText to text items of originalText
    set text item delimiters to withThis
    set cleanedText to tempText as text
end replaceUnderScores