VBA code to retrieve worksheet names from an external workbook and update the current actv

I have an Excel workbook (BAMinit) code as attached
It's purpose is to retrieve all of the worksheet names from another workbook (Bet Angel Multiple)
then populate column A in BAMinit with these sheet names then go and initialise each of the retrieved sheets in Bet Angel Multiple
Used to WORK LIKE A CHARM but has suddenly thrown an error when it gets to the THIRD sheet name when using Sheet.Name in the loop of all sheet names in Bet Angel Multiple

Section of code (part of fully attached ) is:

'Capture Sheet names and define formula to see if it should be initialised
For xLoop = 1 To xCount
xSheet = Sheets(xLoop).Name
ThisWorkbook.Activate
Range("A" & xLoop + 4) = xSheet
xWbk.Activate
Next xLoop

Have explored all options but with no result

Any help much appreciated

Thanks

BazzaBit

I'd guess this might be an issue with which workbook is active, you might wish to try adding workbook and sheet references to your code.

Maybe try something like:

Please Login or Register  to view this content.

in place of what you have in your post.

Hi yudlugar,

Thanks for your reply, it put me on the right track but even specically defining the path to the worksheets it didn't work

However, I downloaded the original Bet Angel Multiple.xls from Bet Angel and it worked like a charm

So my solution was to put my custom worksheets on the END, ie. after all the 3rd party sheets

AND GUESS WHAT, it works like a charm so there must be some clever stuff that Bet Angel has done with their workbook

But it now does exactly what I need so thanks for your assistance

Cheers

Bazzabit

Issue now solved