Help Organizing Data

[Demni009]

Hi all,

I am looking for some help. I wrote a macro that collects data from other spreadsheets saved in a certain file location. This macro runs great. I now want to be able to organize the data based on the values. I have tried the following line of code as a test to see if I can get a small amount of data on the sheet to organize.

SOSheet.Range("A1:A8").Sort key1:=Range("A1"), Order1:=xlDescending, Header:=xlYes

It turns out the code doesn't work and crashes my macro. The strange thing is, it does work in other macros. I can't figure out why.

If you need to see the rest of my code I would be happy to show you.

Thanks in advance for the help.

Cheers!

 

[mole999]

How is SOSheet defined

 

[Demni009]

SOSheet is defined as such.

Dim SOSheet As Worksheet

' Create a new workbook
        
        Set Book = Workbooks.Add
            With Book
                .Title = "Comp."
            End With


        Set SOSheet = ActiveWorkbook.Sheets("Sheet3")