Dave,
Sorting carries the cell format with the data - except for borders and
conditional formatting.
If the cells are conditionally formatted then sorting the data changes
the cell contents which can trigger the CF.
Also, the "WriteInfoToSpreadsheet" routine could be changing the
cell formatting prior to the sort.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"Dave Marden"
wrote in message
When I sort it carries my formatting of my cells with me, the same
program didn't used to when I was only sorting half the amount of data. I
want the values to be sorted while maintaining the formatting as it starts
out.

Public Sub SortCompetitors_Click()
If intSortMethod = 1 Then
strKey1Range = "X4"
strKey2Range = "W4"
strOrder1 = xlAscending
End If
If intSortMethod = 2 Then
strKey1Range = "W4"
strKey2Range = "V4"
strOrder1 = xlDescending
End If
If Range("Sheet3Protection") = "False" Then
ReadInfoFromForm
WriteInfoToSpreadsheet
Range("D4:BK51").Select
Selection.Sort Key1:=Range(strKey1Range), Key2:=Range(strKey2Range),
Order1:=strOrder1, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom
Range("D4").Select
ReadFromSpreadsheet
WriteInfoToForm
Else
UnprotectCompetitorsSheet
ReadInfoFromForm
WriteInfoToSpreadsheet
Range("D4:BK51").Select
Selection.Sort Key1:=Range(strKey1Range), Key2:=Range(strKey2Range),
Order1:=strOrder1, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom
Range("D4").Select
ReadFromSpreadsheet
WriteInfoToForm
ProtectCompetitorsSheet
End If
End Sub

Thanks,
Dave Marden