Go to Worksheet based on a cell

[bobaol]

Hello, I have many files with different sheet names. Each file has the original sheet, and a duplicate of that sheet. For example, I have sheets Modern, and Modern (2) All the dirty work is done in the sheet Modern (2), then after it is all done and pretty, it is copied to the sheet Modern. The only commonality is the naming of the sheets with (2), for example, Manny and Manny (2) or Sunny and Sunny (2).

Here is the problem, in cells A5 of Modern (2), I used the =("filename") formula to define the other sheet, Modern. So, in the sheet Modern (2), cell A5, the value is Modern . I want my macro to say something like this:
Application.Goto Reference:="R1C1"
Selection.Copy
' Sheets("Modern").Select
Sheets.Range("A5").Text.Select
Application.Goto Reference:="R2C1"
Selection.PasteSpecial Paste:=xlPasteValues

The macro above does not work. I want to select the sheet based on cell A5 because there are many different sheets with different names.

Any help is appreciated.

Thanks in advance

 

[JackDanIce]

Try:

Sheets(Range("A5").Text).Select

Alternatively replace above with:

Sheets(Cells(5, 1).Text).Cells(2,1).Value = Cells(1,1).Value

Range("A5") is same object cell as Cells(5, 1) - i.e. row 5 of column 1 (A being first column)