エクセルマクロについて助言下さい。

質問

エクセルマクロについて助言下さい。

★やりたい事
シート名を指定しアクティブにする

BOOOKに複数のセルがあり、シート名は日付（1・2など）
但し、必ず連続ではなく1~31までのシートが存在します。

現在のマクロ↓
シート名を取得し関数で指定のシートが存在するか確認しています。
作業シートのC1セルが0で指定シートなし　0でないで指定シートあり（処理開始）としてます。
作業2のI3セルに日付データがあります。

Sub 抽出()
'シート名を取得する
Sheets("作業").Select
Dim i As Integer
Dim mySheetCnt As Integer
Dim mySheetNam As String
　　 mySheetCnt = ThisWorkbook.Sheets.Count
For i = 1 To mySheetCnt
mySheetNam = Sheets(i).Name
Sheets("作業").Cells(i, 1) = mySheetNam
Next i　　
Range("A1").Select
If ActiveCell.Value = "" Then 'A1が空白の場合の処理
MsgBox "指定の日付のシートが存在しません"
Exit Sub
End If
Sheets("作業").Select
Range("C1").Select
If ActiveCell.Value = 0 Then 'C1が0の場合の処理
MsgBox "指定の日付のシートが存在しません"
Exit Sub
End If
Sheets("作業2").Select
Range("I3").Select
Sheets(ActiveCell.alue).Select
End Sub

このコードだと3と指定すると左から３枚目にあるシートが選択されます。
３枚目ではなくシート名が　３　を選択したいのです。。
分かりにく説明で申し訳ありませんが、教えてください。

回答No.3

hananoppo · ベストアンサー

こんな感じでどうでしょう。

Sub 抽出()
Dim i As Integer

'シート名を取得する
Worksheets("作業").Activate
Columns("A").ClearContents
For i = 1 To Worksheets.Count
Cells(i, 1).Value = Worksheets(i).Name
Next i

Range("C1").Select
If ActiveCell.Value = 0 Then 'C1が0の場合の処理
MsgBox "日付シートの選択が許可されていません。"
Exit Sub
End If
Worksheets("作業2").Activate
Range("I3").Select
For i = 1 To Worksheets.Count
If Worksheets(i).Name = CStr(ActiveCell.Value) Then
Worksheets(i).Activate
Exit Sub
End If
Next i
MsgBox "指定の日付シートが存在しません。"
End Sub

回答No.2

mitarashi

下記の様に文字列である事を明示してはいかがでしょうか。ご参考まで。
Sheets(Cstr(ActiveCell.value)).Select

回答No.1

rukuku

こんばんは

新しいブックに、シートを３つ以上用意し、１番目のシートの名前を「3」にして、以下のソースを試してみてください

Sub sumple1()
Dim A As String
A = 3
Sheets(A).Select
End Sub

Sub sumple2()
Dim A As Integer
A = 3
Sheets(CStr(A)).Select
End Sub

Sub sumple3()
ActiveCell.Value = 3
Sheets(CStr(ActiveCell.Value)).Select
End Sub

ポイントは「数字の３ではなく、文字の３ですよ」ということをVBAに伝える事です。