Sub ki083()
    Sheets("Sheet1").Select
    Columns(2).AutoFit
End Sub
Sub ki083a()
    Sheets("Sheet1").Select
    Columns(2).ColumnWidth = 0
End Sub
'
Sub ki083b()
    Sheets("Sheet1").Select
    Columns(2).ColumnWidth = 8.38
End Sub