If Ucase(Right(name,4))=Ucase("xlsx")Then
Replace(文字列のセル番地," ","")
StrConv(" A ",vbNarrow)
Range("A1").Font.Name="MSPゴシック"
Range("B3:C5").Font.Bold=True
("B3:C5").ClearFomats
Left(Rng.Text,7)&"-"& Mid(Rng.Text,8)
Replace("001122","1","5",4)
WorksheetFunction.Replace("あいうえお",1,3,"")