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