This is the problematic code.

It only gives the error when in shared mode. i think it may need a "Xl"
somewhere???


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Excel.Range)
Application.EnableEvents = False
Application.ScreenUpdating = False
If Target.Column = 2 And Target.Column <= 10 And Target.Row = 5 And
Target.Row <= 9 Then
Set ws1 = Worksheets(1)
For x = 10 To 19
score = ws1.Cells(x, 12).Value
scoreRow = x
For y = x + 1 To 19
If ws1.Cells(y, 12).Value score Then
score = ws1.Cells(y, 12).Value
scoreRow = y
End If
Next y
If scoreRow < x Then
ws1.Cells(scoreRow, 11).Cut
ws1.Cells(x, 11).Insert
ws1.Cells(scoreRow, 12).Cut
ws1.Cells(x, 12).Insert
End If
Next x
End If
ThisWorkbook.Save
Application.ScreenUpdating = True
Application.EnableEvents = True
end sub.

any help would be great.

PS; i do use shared mode.


--
mikewild2000
------------------------------------------------------------------------
mikewild2000's Profile: http://www.excelforum.com/member.php...fo&userid=3276
View this thread: http://www.excelforum.com/showthread...hreadid=520245

Check Help about "Features that are unavailable in shared workbooks". There
is a list of 20 or so things and "Insert or delete blocks of cells" is one
of them. One allowable workaround would be to insert/delete an entire row,
but I can't tell if that is appropriate in your situation.

HTH,
--
George Nicholson

Remove 'Junk' from return address.


"mikewild2000"
wrote in message
news:mikewild2000.24d8bo_1141845906.3235@excelforu m-nospam.com...

This is the problematic code.

It only gives the error when in shared mode. i think it may need a "Xl"
somewhere???


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Excel.Range)
Application.EnableEvents = False
Application.ScreenUpdating = False
If Target.Column = 2 And Target.Column <= 10 And Target.Row = 5 And
Target.Row <= 9 Then
Set ws1 = Worksheets(1)
For x = 10 To 19
score = ws1.Cells(x, 12).Value
scoreRow = x
For y = x + 1 To 19
If ws1.Cells(y, 12).Value score Then
score = ws1.Cells(y, 12).Value
scoreRow = y
End If
Next y
If scoreRow < x Then
ws1.Cells(scoreRow, 11).Cut
ws1.Cells(x, 11).Insert
ws1.Cells(scoreRow, 12).Cut
ws1.Cells(x, 12).Insert
End If
Next x
End If
ThisWorkbook.Save
Application.ScreenUpdating = True
Application.EnableEvents = True
end sub.

any help would be great.

PS; i do use shared mode.


--
mikewild2000
------------------------------------------------------------------------
mikewild2000's Profile:
http://www.excelforum.com/member.php...fo&userid=3276
View this thread: http://www.excelforum.com/showthread...hreadid=520245

SCORE BOARD

What it is doing is:

i have i col of 10 team names (team 1, team 2, etc) from K10 to K19
Then from L10 to L19 i have the team scores.

What the code is doing. It is tying to gether the team name cells with
with cell holding it's score (K10 & L10, K11 & L11, etc)

Then it is sorting the highest score to the top of the list but keeping
the team names in place with the correct score.


--
mikewild2000
------------------------------------------------------------------------
mikewild2000's Profile: http://www.excelforum.com/member.php...fo&userid=3276
View this thread: http://www.excelforum.com/showthread...hreadid=520245