Macro to refer to cell containing sheet name in W2

[howard]

I have the sheet name in Cell W1 using the formula

 =MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,255)

I have a formula in W2 to put the sheet name in quotation marks

=""""&W1&"""" resulting in "Forms outstanding"

I would like to amend my macro code below to refere to cell W2 instead of having to type on the sheet name

Sheets("Forms Outstanding").Copy

It would be appreciated if someone could kindly amend this code

 

[DanteAmor]

The quotes are not necessary, you can directly use the result you have in cell W1, try:

Sub copysheet()
  Sheets(Range("W1").Text).Copy
End Sub

 

[howard]

Thanks Dante. This works perfectly

I tried using this on code below, but get "subscript out of range"

Sheets(Range("W1").Text).Activate

If I use code below it works

Sheets("Forms outstanding").Activate

Kindly amend to refer to Cell W1