In short. I really need the complete code to add Right click copy/paste commands to a multipage user form.

I tried using the main code then upon reading further the portion about not working with a multipage. i attempted to add the exception but must be incompetent about where to put or the several hundred lines of code i already have is causing a problem. although it shouldnt since VBA seems to mostly work isolated subroutines …..anyway

if anyones out there and can help jeremyweck@gmail.com

HACK THE PLANET

will this work even if my textbox is in excel sheet? tnx

I actually programmed it in Excel 2000. But I just tested it in Excel 2003, and I get the same error. I’m now using your original code along with Stephen Bullen’s edits shown in his initial post. In his ActiveControl function, it gets to the line “Set ActiveControl = fmUserform.ActiveControl”, then chokes on “If TypeOf ActiveControl Is MSForms.TextBox”. Hovering over ActiveControl at that point gives me “ActiveContol = Nothing”, so apparently that Set command isn’t picking up anything from fmUserform.ActiveControl.

A slight modification to exactly what happens: I open another spreadsheet and highlight some cells in it, hit Edit/Copy, and I get the error message I mentioned earlier. It’s pretty harmless actually because I can simply cancel out of the error message, the cells are still highlighted and are on the clipboard. Still an annoyance though.

I cannot replicate your problem either on Excel 2003 or Excel 2007. What version are you using?

I just found this blog, so bear with me. I have copied the code in the original post above, works great EXCEPT:

I have the exact code as above in an open spreadsheet. If I then open another Excel spreadsheet, highlight some cells, and then hit Edit/Copy, I immediately get an error popup “Object variable or With block variable not set” — it is choking on the cmdCopyButton_Click subroutine. Only happens the first time I try to use the Copy command; if I cancel the operation, then try the Copy command again, no error message.

Is there a fix to prevent this?

TIA.

Me.MultiPage1.Pages(Me.MultiPage1.Value).ActiveControl.Name

Long live google!
(and wish me success learning to write code )

Function ActiveControl(Optional ctlContainer As MSForms.Control) As MSForms.Control

If ctlContainer Is Nothing Then
ëGet the active control on the form
Set ActiveControl = fmUserform.ActiveControl
Else
ëGet the active control inside the container
Set ActiveControl = ctlContainer.ActiveControl
End If

ëHave we got a text box yet?
If TypeOf ActiveControl Is MSForms.TextBox Then
Exit Function
Else
ëNo, so recurse through the container controls
Set ActiveControl = ActiveControl(ActiveControl)
End If

End Function

by Stephen Bullen

Many thanks!