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