VBAでシート名を変数として定義することはできますか？

Question

は、下記の別の

Sub test1() 

' test1 Macro 

' Keyboard Shortcut: Ctrl+Shift+S 

ActiveCell.Select 
Sheets("Athens Limestone Hospital").Select 
ActiveCell.Range("A1:E2").Select 
Selection.Copy 
Sheets("Sheet2").Select 
ActiveCell.Select 
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ 
    False, Transpose:=True 
Application.CutCopyMode = False 
ActiveWorkbook.Save 

End Sub 

End Subの

---

アテネ石灰石病院に一枚のシートからデータをコピーするためのコードであるデータをコピーしようとするから、シート名は、です。コード名を邪魔することなく、ユーザーが好きなシート名を与えるようにシート名を変数として定義することは可能ですか？

Answer 1

はい、それは、あなたがSHEETNAMEを選択するようにユーザーをできるように多くのオプションを持って、以下のコードで表示されます。

Dim SheetName   As String 
' option 1 - via inputbox 
SheetName = InputBox("Please enter worksheet name", "Enter worksheet Name") 

' option 2 - from Cell A1 in "Sheet1" >> you can modify to your needs 
SheetName = Sheets("Sheet1").Range("A1") 

Sheets(SheetName).Select 

を