『Comboboxの日付』（POST）

 userform上でComboboxに日付を選択できるようにしてあります。
 comboboxで選択したら日付がシリアル値で表示されてしまいます。
 ワークシートに行くとformat関数でちゃんとした日付になっているのですが
 Comboboxの表示の所も変えるときはどのようにしたらいいのですか？

 又、ループか何かを使ってComboboxで日付を選択する方法とかありますか？
 ご教授下さい。
 
 Option Explicit
 
 Private Sub ComboBox1_AfterUpdate()
 UserForm1.ComboBox1.value = Format(ComboBox1.Value, "ggge年m月d日")
 End Sub
 
 Private Sub CommandButton1_Click()
 With Worksheets(1)
 .Range("b1").Value = ComboBox1.Value
 End With
 End Sub
 
 Private Sub UserForm_Initialize()
 With UserForm1
 .ComboBox1.RowSource = "Sheet1!A1:A6"
 End With
 End Sub

----
 AfterUpdateを外して
 Initialize を

 Dim r As Range
 With Me.ComboBox1
     .Clear
     For Each r In Sheets("Sheet1").Range("a1:a6")
         .AddItem r.Text
     Next
 End With

 こんな感じでいけませんか？　(seiya)
----
 （可能なら）Sheet1!A1:A6を文字列として日付入力しておく方法もあります。
(みやほりん)(-_∂)b
----
 それか
 Private Sub ComboBox1_Change()
    ComboBox1.Value = Format(ComboBox1.Value, "ggge年m月d日")
 End Sub
 でもＯＫ
 　　　　（弥太郎）
----
 seiyaさん　みやほりんさん　弥太郎さんレスありがとうございます。
 無事出来ました。

 文字列で入力すれば何も変換することはないのですね。勉強になります。
  

 もう一つ質問なんですが、
 ｼｰﾄ上からではなく
 UserformのInitializeで今日の日付をもとめて前後２週間位を
 Commboboxで選択させることは出来るのでしょうか？
----
 こんな塩梅でっか？
 
  data = Date
    
 With Me.ComboBox1
    For i = 1 To 15
        .AddItem data - 8 + i
    Next i
    
 End With
----
 お早いレスありがとうございます。

 無事に出来ました。
 すごく勉強になりました。
 みなさんありがとうございました。

 (POST)