Hi

Try this two events in the sheet module Ritesh

Private Sub Worksheet_Activate()
With Application.CommandBars("Standard")
.FindControl(ID:=210).Enabled = False
.FindControl(ID:=211).Enabled = False
End With
Application.CommandBars("Worksheet Menu Bar").FindControl _
(ID:=928, Recursive:=True).Enabled = False
End Sub

Private Sub Worksheet_Deactivate()
With Application.CommandBars("Standard")
.FindControl(ID:=210).Enabled = True
.FindControl(ID:=211).Enabled = True
End With
Application.CommandBars("Worksheet Menu Bar").FindControl _
(ID:=928, Recursive:=True).Enabled = True
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Ritesh S" wrote in message ...
I have created a sheet with all the numbers at specific
location and i am working on writing a code in VB to find
the location of those numbers and Graph it.

What i am having trouble is to make is so that nobody can
sort that one particular sheet...b/c that could cause all
my graphs to mess up...

If anybody can help me I'd really appreciate it.

Thanks in advance...

Sincerely,
Ritesh