I have added an Selection Change Event in my workbook. However, problem is
found when I perform copy and paste. The data is "lost" (the "Paste" is in
light grey) after I has right clicked another cell. Any solution for this?
Thanks in advance for any help!

Pat

Post the code for the selection change.


"pwz" wrote in message
...
I have added an Selection Change Event in my workbook. However, problem is
found when I perform copy and paste. The data is "lost" (the "Paste" is in
light grey) after I has right clicked another cell. Any solution for this?
Thanks in advance for any help!

Pat

Here it is:

Private Sub App_SheetCalculate(ByVal Sh As Object)
If Sh.AutoFilterMode Then macroA
End Sub


"JLGWhiz" wrote in message
...
Post the code for the selection change.


"pwz" wrote in message
...
I have added an Selection Change Event in my workbook. However, problem is
found when I perform copy and paste. The data is "lost" (the "Paste" is in
light grey) after I has right clicked another cell. Any solution for this?
Thanks in advance for any help!

Pat

It should be this one:

Private Sub App_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
If Sh.AutoFilterMode Then MacroA

End Sub
"JLGWhiz" wrote in message
...
Post the code for the selection change.


"pwz" wrote in message
...
I have added an Selection Change Event in my workbook. However, problem is
found when I perform copy and paste. The data is "lost" (the "Paste" is in
light grey) after I has right clicked another cell. Any solution for this?
Thanks in advance for any help!

Pat

You may want to post your selectionchange code.
--
HTH,

Barb Reinhardt



"pwz" wrote:

I have added an Selection Change Event in my workbook. However, problem is
found when I perform copy and paste. The data is "lost" (the "Paste" is in
light grey) after I has right clicked another cell. Any solution for this?
Thanks in advance for any help!

Pat


.

Here it is:

Private Sub App_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
If Sh.AutoFilterMode Then MacroA

Thanks!


"Barb Reinhardt" wrote in message
...
You may want to post your selectionchange code.
--
HTH,

Barb Reinhardt



"pwz" wrote:

I have added an Selection Change Event in my workbook. However, problem
is
found when I perform copy and paste. The data is "lost" (the "Paste" is
in
light grey) after I has right clicked another cell. Any solution for
this?
Thanks in advance for any help!

Pat


.

Here it is:

Private Sub App_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
If Sh.AutoFilterMode Then MacroA (to change a cell content)

Thanks!


"Barb Reinhardt" wrote in message
...
You may want to post your selectionchange code.
--
HTH,

Barb Reinhardt



"pwz" wrote:

I have added an Selection Change Event in my workbook. However, problem
is
found when I perform copy and paste. The data is "lost" (the "Paste" is
in
light grey) after I has right clicked another cell. Any solution for
this?
Thanks in advance for any help!

Pat


.

It appears that you are trying to run a workbook defined event from the
application level. I am not familiar with that technique, and am not sure
that Excel accepts that as valid event code for the SheetSelectionChange
event. I would normally write the code as

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
If Sh.AutoFilterMode Then MacroA (to change a cell content)


"pwz" wrote in message
...
Here it is:

Private Sub App_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
If Sh.AutoFilterMode Then MacroA (to change a cell content)

Thanks!


"Barb Reinhardt" wrote in
message
...
You may want to post your selectionchange code.
--
HTH,

Barb Reinhardt



"pwz" wrote:

I have added an Selection Change Event in my workbook. However, problem
is
found when I perform copy and paste. The data is "lost" (the "Paste" is
in
light grey) after I has right clicked another cell. Any solution for
this?
Thanks in advance for any help!

Pat


.

Also, the code must be in the ThisWorkbook code module for it to execute
properly on event.



"JLGWhiz" wrote in message
...
It appears that you are trying to run a workbook defined event from the
application level. I am not familiar with that technique, and am not sure
that Excel accepts that as valid event code for the SheetSelectionChange
event. I would normally write the code as

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
If Sh.AutoFilterMode Then MacroA (to change a cell content)


"pwz" wrote in message
...
Here it is:

Private Sub App_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
If Sh.AutoFilterMode Then MacroA (to change a cell content)

Thanks!


"Barb Reinhardt" wrote in
message
...
You may want to post your selectionchange code.
--
HTH,

Barb Reinhardt



"pwz" wrote:

I have added an Selection Change Event in my workbook. However, problem
is
found when I perform copy and paste. The data is "lost" (the "Paste" is
in
light grey) after I has right clicked another cell. Any solution for
this?
Thanks in advance for any help!

Pat


.