VBA code to ungroup worksheets

Hi All,

Excuse my VBA, its a bit rusty. But i wrote a code, to copy worksheets from one workbook, to another workbook, that gets sent out to a mailing list. The issue is after doing so, the original workbook, groups all the tabs. I would like your help to amend the code to ungroup the tabs in the original workbook.

I think the issue is in the initial sheets(array()) line which initially groups it

Thanks


Here is the code I have:

Please Login or Register  to view this content.

Hi,

Selecting a sheet that hasn't been grouped will remove the grouping. e.g. Sheet1.Select

Originally Posted by Richard Buttrey

Hi,

Selecting a sheet that hasn't been grouped will remove the grouping. e.g. Sheet1.Select

1. The problem is that all the worksheets on the original workbook are grouped, so i cannot select a worksheet.

2. For another workbook i have where i do have a non grouped worksheet, selecting it is fine, it ungroups it, but via VBA i have an issue as activating the original workbook due to the filename being dynamic becomes troublesome. Below is the code i used, to activate the original workbook but doesnt seem to work

Please Login or Register  to view this content.

Would you be kind to tell me what code will solve this?

Regards

You may omit select:

Please Login or Register  to view this content.

You may also simply use:

Please Login or Register  to view this content.

to deselect all other sheets.