列のアルファベットを取得する
MsgBox Split(ThisWorkbook.Worksheets("Sheet1").Cells(1, 100).Address, "$")(1)