ファイル名に使えない文字を変換！

Sub File_Name() 'ファイル名に使えない文字を変換-1

  Dim Rng As Range

  Set Rng = Range("1:1").Find("タイトル")
    Rng.EntireColumn.Select
   
    Selection.Replace What:="~?", Replacement:="_"
    Selection.Replace What:="/", Replacement:="／"
    Selection.Replace What:="[", Replacement:="［"
    Selection.Replace What:="]", Replacement:="］"
    Selection.Replace What:=">", Replacement:="＞"
    Selection.Replace What:="<", Replacement:="＜"
    Selection.Replace What:="~*", Replacement:="＊"
    Selection.Replace What:=":", Replacement:="："
    Selection.Replace What:=";", Replacement:="；"
    Selection.Replace What:="\", Replacement:="_"
    Selection.Replace What:="""", Replacement:="_"
    Selection.Replace What:=vbTab, Replacement:="_"
   
End Sub

半角を全角にしたりとかいろいろ、、