VBA シート名一部分検索処理

#実現したいこと
ブック内の一番左のシート名の一部を取得し、変数の値と比較し、条件を満たしたら、変数の値を利用した新しいシートを一番左に作成しようとしています。
ネットにいい情報が出ていなかったので、わかる方がいらっしゃったら、ご回答お願いします。

##作成しているVBA
○Excel2010にてシフト表を作成しております。
○各月ごとに１シートを使用し、左(新月)⇒右(旧月)となっております。
○現在のシート名は、左から『17 5月』、『17 4月』というようになっております。
○１７年６月を選択した時に、現在の一番左のシート名の月の半角数字にあたる5を取得し、6と比較をする
○6(選択月) > 5(シートが作成されている最新月)となるため、『17 6月』という名前で新しいシートを一番左に作成します。
なお、新しいシート名は選択している年を格納している変数、選択している月を格納している変数、半角空白、"月"を用いて新しいシートのシート名を指定します。
○比較をした時に、選択月 = 最新月、選択月 < 最新月となる場合は、シートの作成は実施いたしません。
わからないのはシート名を分解して一部分のみをstring変数に取得する方法です。

ttyp03

2017/05/11 05:53

処理を列挙してありますが、この中でどれがわからないんですか？シート名の取得？シート名の分解？新しいシートの作成？

行動規範の内容に同意します

回答1件

ベストアンサー

追記ありがとうございました。
要は文字列の分解がわからないとのことで回答します。
やりかたはいくつかあると思いますが、簡単に思いついたのを２つ書いておきます。

VBA
1' 左端のシート名取得
2sn = Worksheets(1).Name
3
4' 固定位置で取得する場合
5Debug.Print Mid(sn, 4, Len(Mid(sn, 4)) - 1)
6
7' 分割して取得する場合
8ws = Split(sn, " ")
9ws2 = Split(ws(1), "月")
10Debug.Print ws2(0)