Sub ki114()
  Sheets("Sheet1").Select
  ActiveSheet.UsedRange.Select
    rst = ActiveCell.Row
    cst = ActiveCell.Column
    Range("A1").Select
  Sheets("Title").Select
  MsgBox "Sheet1のデ−タベ−ススタ−ト位置は" & Chr$(10) _
  & rst & "行　　" & cst & "列　です"
End Sub