VBA TRIM is won't TRIM active worksheet

[Groovicles]

Hi everyone,

This must be the most annoying function VBA has. I just can't seem to get it to work. All I'm trying to do is create a macro to trim the active sheet:

Sub Trim()
Application.ScreenUpdating = False
    With ActiveSheet.Range("A1:J3000")
    On Error Resume Next
        .Value = Application.Trim(.Value)
    On Error GoTo 0
    End With
Application.ScreenUpdating = True
End Sub

At one point I didn't get an error but TRIM didn't activate. Now I am getting an error on various points of the code. Help!!!

Thanks everyone!