文字連結時のコンパイルエラーについて

質問

Sub JoinTime()
　Cells(2, 3) = Cells(2, 1) & Text(Cells(2, 2), "hh:mm:ss")
End Sub

これを実行すると、
「コンパイルエラー：：Ｓub またはFunctionが定義されていません。」
とエラーが出てしまいます。
どう対処すればよろしいでしょうか？
cells(2,1)には、20:10:10のように時刻が入ります。
どうぞよろしくお願い致します。

回答No.1

bin-chan · ベストアンサー

> 　Cells(2, 3) = Cells(2, 1) & Text(Cells(2, 2), "hh:mm:ss")
Text関数は、ワークシート関数です。
VBA上ではFormat関数を使用してください。書式は同じ。

Cells(2, 3) = Cells(2, 1) & Format(Cells(2, 2), "hh:mm:ss")

教えて！Gooからの参加ですが、動作が不安定？重複してたらごめんなさい。