Using cell value to define Sheets(Array)

[gmedalla999]

Hello I need help on my macro - it doesnt seem to work. I need to define Array of Sheets based on cell value from A1. thank you very much in advance

'Part of the Code


A = Activesheet.Range("a1").Value

'where Range ("A1") contains the name of Sheets to be chosen e.g. "P001", "P002", "P003"

Sheets(Array(A)).Select

 

[Norie]

Try this.

A = Replace(Replace(ActiveSheet.Range("a1").Value, """", ""), " ", "")

'where Range ("A1") contains the name of Sheets to be chosen e.g. "P001", "P002", "P003"

Sheets(Split(A, ",")).Select

 

[gmedalla999]

Try this.

A = Replace(Replace(ActiveSheet.Range("a1").Value, """", ""), " ", "")

'where Range ("A1") contains the name of Sheets to be chosen e.g. "P001", "P002", "P003"

Sheets(Split(A, ",")).Select

Hello Norie,

Thank you for the prompt response - I found an alternative solution to my problem. thank you again though

 

[gmedalla999]

Norie,

I tried your Macro and this works better.... thank you very much for this..