if Assigned(Worksheet.Previous) then MessageDlg('The previous Worksheet name is "' + Worksheet.Previous.Name + '"', mtInformation, [mbOk], 0);