Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If Union(Range("$B:$E"), Target).Address = Range("$B:$E").Address Then
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell.FormulaR1C1 = "P"
ActiveCell.Select
With Selection
.HorizontalAlignment = xlCenter
End With
ActiveCell.Offset(0, 1).Range("A1:D1").Select
Cancel = True
End If
End Sub


Try This!!!


--
davesexcel
------------------------------------------------------------------------
davesexcel's Profile: http://www.excelforum.com/member.php...o&userid=31708
View this thread: http://www.excelforum.com/showthread...hreadid=520988