Error: Can't move focus because it is invisible

Question

I have the following code that works in all other circumstances except in a single where it returns the error Can't move focus because it is invisible, not enable, or type that does not accept focus. The data in sheet consists only basic numbers and words. My objective is to select a range from one work book and paste it to another. It appear that excel does not recognise anything to be in the cells, although there in fact is. Does anyone know why this may be happening?

    Set Users = Application.Workbooks.Open(PathA)
        With Prices
        .Sheets("Sheet").Range("A:AJ").Select
        Selection.Copy
        End With
    'Set Risk = Application.Workbooks.Open(PathX)
        With Risk
        .Sheets("Sheet").Range("A1:AJ1048576").PasteSpecial Paste:=xlPasteAll
        .Save
       ' .Close
        End With
        Users.Close

[INTERESTING READ](http://stackoverflow.com/questions/10714251/excel-macro-avoiding-using-select) — Siddharth Rout, Oct 15 '13 at 05:23
You open a workbook `Users` but copy from `Prices` - can't tell if that's related to your problem. — Tim Williams, Oct 15 '13 at 06:17

chiliNUT · Answer 1 · 2013-10-15T05:59:38.927

it looks like someone else had the same issue and was able to resolve it on an MSDN forum

http://social.msdn.microsoft.com/Forums/office/en-US/3263b079-7e4f-452c-8dcc-92c682b8370b/excel-form-cant-move-focus-to-the-control-because-it-is-invisible-not-enabled-or-of-a-type-that?forum=exceldev

maybe this fix will apply to your situation too.

... OK so on that page, one guy has a kludge that seemed to work for him:

Error was:

Can't move focus to the control because it is invisible, not enabled, or of a type that does not accept the focus.

How to Fix

1. Select the object with the problem, e.g. the Form or Control.

2. In the properties windows, select the name of the object and rename adding an "x" to the end, e.g. Rename CPanel to CPanelx.

3. Save the Form.

4.Now rename the CPanelx back to CPanel.

5. Run your form.

6. Problem solved.

Something screwy with Excel VBA, not sure what !, but this will get you working again. Steve D.

and then someone else described the underlying problem, but his solution involved using design mode, which seems like it is maybe defeating the purpose of automating in vba, but the moderator seemed to like his answer better, so here that is as well

In normal use activeX controls are intended only to be activated, not selected, there's a difference. If you partifcularly want to Select the control (manually or with code), try putting Excel into Design mode first.

See also the topic "Why can't I select form and ActiveX controls?" in Excel's help (not VBA's help)

Peter Thornton

Instead of downvoting, I think I will request you first. :) Bare links are low quality answers. You might want to improve your answer and add more meaning to it so that in the future if the link breaks, we still know what the solution is. This will also help future users. — Siddharth Rout, Oct 15 '13 at 05:49
Thank you very much for your answer. I did see this and I think it is in reference to form or activeX controls rather selecting, copying and pasting from one place to another. — user2832896, Oct 15 '13 at 06:13

score 0 · Answer 2 · answered Oct 15 '13 at 23:51

"Run-time error '-2147352565 (8002000b)': Can't move focus to the control because it is invisible, not enabled or of a type that does not accept the focus" Can be overcome but sequentially defining the area you wish to select. Obviously some may do this in any case, but it this specific instance it is needed to overcome the issue. This is an example for copying from one workbook to another and pasting where U is the sheet excel finds to be "invisible".

        Dim U As Workbook
        Dim Us As Worksheet
    Set U = Application.Workbooks.Open(Path)
    Set Us = U.Worksheets("sheet")
    With Us
        .Range("A:AJ").Select
        Selection.Copy
    End With
        U.Close SaveChanges = True
    With DestinationWorkbook
        .Sheets("sheet").Range("A:AJ").PasteSpecial Paste:=xlPasteAll
        .Save
    End With

score 0 · Answer 3 · edited May 25 '18 at 08:36

0

Just to help in case you didn't find the answer till now : In my case this message came out when I redimensioned the application window while it was maximized :

e.g. Application.width = 100 (on Excel 2003 or 2007)

The solution in this case, is to first bring the application window to NORMAL.

e.g. ActiveWindow.WindowState = xlNormal

edited May 25 '18 at 08:36

4b0

21,981
30
95
142

answered May 25 '18 at 08:34

Lucien

1
1

Error: Can't move focus because it is invisible

3 Answers3

Linked