Edit this macro so it can check if there is the personal workbook being used

[tonywatsonhelp]

Hi Everyone,

I have this code below which works great,
it copies data from one open workbook to another,
it checks if there are only the two workbooks open before runing, however i get a problem when someone has a personal workbok as well as stricktly speaking this is open
is i was woundering if we could somehow edit this code to say if personal workbook is open count should be 3 and copy all but personal?

heres the code

Sub CopyData()
    If Application.Workbooks.Count > 2 Then 'so this needs to be 3 if personal is in use!
        MsgBox ("Too many documents open.")
        Exit Sub
    End If
    Application.ScreenUpdating = False
    Dim WB As Workbook
    For Each WB In Workbooks ' except personal?
        If WB.Name <> ThisWorkbook.Name Then
            WB.ActiveSheet.UsedRange.Copy Sheets("raw data").Cells(1, 1)
        End If
    Next WB
    Application.ScreenUpdating = True
End Sub

 

[rollis13]

Since you are using in your macro Application.Workbooks.Count > 2 to exit, if there are more than 2 open workbooks, and WB.ActiveSheet.UsedRange.Copy then I suppose that you probably know the name of the other open workbook, so, why not use the 'name' of the workbook instead of 'WB' ?