vbaを使用してカーソルをテキストボックス25に移動します

頻繁に記入するフォームがあります.ドキュメント内で他の情報を移動するためのVBAがあります.次のステップは、カーソルをテキストボックスに移動してから、入力を開始することです.私はそれを機能させることができないようです.誰か考えがありますか?

どのサブの下に置いてもかまいません.カーソルをテキストボックスに移動したいだけです.

これがVBAコードです.

プライベートサブcommandButton1_Click()

moveaddressを呼び出す

HideColumnsを呼び出す

Formatmovedcellsを呼び出す

Saveacopyに電話する

サブの終了

Sub moveaddress()

'顧客名

Range( "C6").Value= Range( "P3").Value

'シリアル番号

Range( "C7").Value= Range( "N23").Value

'シリアル番号

Range( "C8").Value= Range( "N23").Value

'顧客名

Range( "C9").Value= Range( "P3").Value

'顧客の住所

Range( "C10").Value= Range( "P5").Value

'顧客の都市、州、郵便番号

Range( "C11").Value= Range( "P7").Value&"、"&Range( "P9").Value&""&Range( "P11")

'お客様の連絡先

Range( "C12").Value= Range( "P13").Value&""&Range( "P15").Value

'Office番号

Range( "C13").Value= Range( "P17").Value

'携帯電話番号

Range( "C14").Value= Range( "P19").Value

'メールアドレス

Range( "C16").Value= Range( "N21").Value

「技術者の名前

Range( "H7").Value= Range( "P25").Value

'名前を付けて保存

Range( "N25").Value= "FSA_"&Range( "C6")&( "_")

サブの終了

Sub HideColumns()

'

'HideColumnLマクロ

'非表示

'

'キーボードショートカット:Ctrl + l

'

Columns( "L:T").Select

Selection.EntireColumn.Hidden= True

サブの終了

Sub Formatmovedcells()

Range( "C6:C19").Select

Selection.Fontを使用

.ColorIndex= xlAutomatic

.TintAndShade= 0

で終わる

Selection.Font.Bold= False

Selection.Font.Italic= False

サブの終了

Sub Saveacopy()

文字列としての薄暗いパス

文字列としてのファイル名を暗くする

パス="C:\Users\usdeprha\Desktop \"

filename= Range( "N25")

ActiveWorkbook.SaveAs filename:= Path&filename、FileFormat:= xlOpen

サブの終了