[[20210421102755]]　『コンパイルエラー（ステートメントの最後）が出て』（kenN）　ページの最後に飛ぶ

『コンパイルエラー（ステートメントの最後）が出てしまいます。』（kenN）

以下のコードを記載しています。
　　（必要なコードのみ掲載）

Dim LCN As Single

Set Ws1 = Sheets("Rev_DATA")

'A列の最終使用行番号
LCN = Ws1.Cells(Rows.Count, 1).End(xlUp).Row

With Ws1

	.Range("C:E").NumberFormatLocal = "G/標準"
	.Range(.Cells(3, "C"), .Cells(LCN + 1, "C")).Formula = "=TEXT(B3,"0!:00!:00")*1" <------ エラー部分

上記の<------ エラー部分でコンパイルエラー（ステートメントの最後）が出てしまいます。

"=TEXT(B3,"0!:00!:00")*1"　の部分が原因だと思うのですがエラー回避の方法ありますか　？

　　それとも、私の思い違いでしょうか　？

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

 "でくくった文字列内に"そのものを入れるときには""と二重にする。
 "=TEXT(B3,"0!:00!:00")*1"
 を
 "=TEXT(B3,""0!:00!:00"")*1"
 に。
（ねむねむ） 2021/04/21(水) 10:33

"でくくった文字列内に"そのものを入れるときには""と二重にする。

ねむねむさん、アドバイス感謝します。

　修正すると、エラーがでなくなりました。
（kenN） 2021/04/21(水) 10:59

コメント返信：