Anyone up? I need someone to test a spreadsheet for me...

[wutamess]

a

[Mr. Flopnuts]

I can't even find my way around an excel spreadsheet otherwise I'd be happy to help.

[wutamess]

well if you could download the spreadsheet only and hit control-n, that'd help me out a lot with the results.

[nstygma]

it blinked for me without any other steps

[wutamess]

Originally Posted by nstygma

it blinked for me without any other steps

So you didn't import the macro?
Can you do me another favor open the spreadsheet and hit alt-f11 and can you tell me if there's some macro code in there?

Thanks.
Hopefully I won't have to edit it in any way and can just send the spreadsheet as is.

[Mr. Flopnuts]

Someone on the site is saying the files erased their flash drives.

[nstygma]

yep i did not import the macro

Sub SORT()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+n
'
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect

'    Range("A3:F34").Select
'    If ActiveSheet.ProtectContents Then
'    ActiveSheet.Unprotect
'    End If
    ws.SORT.SortFields.Clear
    ws.SORT.SortFields.Add Key:=Range("A3:A34") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ws.SORT
        .SetRange Range("A3:F34")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
'    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ws.Protect
Next
End Sub

[wutamess]

Originally Posted by nstygma

yep

Sub SORT()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+n
'
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect

'    Range("A3:F34").Select
'    If ActiveSheet.ProtectContents Then
'    ActiveSheet.Unprotect
'    End If
    ws.SORT.SortFields.Clear
    ws.SORT.SortFields.Add Key:=Range("A3:A34") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ws.SORT
        .SetRange Range("A3:F34")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
'    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ws.Protect
Next
End Sub

Great! Thank you very much.