"capturing" an address?

Range("A1:A4").Select
Selection.Cut
Sheets("Sheet2").Select
ActiveSheet.Paste
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Sheets("Sheet1").Select
Range("A1").Select
End Sub

How might I modify the module above so that it
looks at sheet1 cell B2 and select a sheet with
the same name ? ( cell B2 changes daily)
I've done this in Quattro Pro using &"****"&
in my formulas but havent found a solution in Excel, hope you can give me a clue.

Thank You

Bill